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ROOOl 

variable 

description 

HAXIMLM VALlB * 

CCMPUIER NAPE 






R0005 





B0006 

URTO 

INITIAL TARGET VECTOR 

2 (WIT VECTOR) 

= RTINIT 

R0008 

- 




R0009 

uz 

WIT vector NORIH 

1 

= WITW 

ROOll 

- 




R0012 

V 

VBUJCITf vector 

2 VSAT 

s VEL 

R0014 

- 




ROOIS 

R 

P03ITIW vector 

2 EXP 29 peters 

= RN 

ROOIT 

- 




R0018 

VI 

inertial velocity 

128 M/CENTISEC 

= VN 

R0020 

- 




R0021 

RIB 

VECTOR EAST AT INITIAL TARGET 

2 

r RTEAST 

R0023 

- 




R0024 

irra 

NOIMAL TO RTE AND UZ 

2 

= RTNOBM 

R0026 

- 




R0027 

URT 

target vector 

2 

= BT 

R0029 

- 




R0030 

UNI 

WIT NORMAL TO TSAJECtORV PLANE 

2 


R0031 





R0032 

DBLV 

INTBQRATSJ ACCEL. FRCM PIPAS 

5.85 16384 


R0033 





R0034 

O 

caAviTY vector 

128 M/CB(TI®C 

= GDT/2 

R003a 

AO 

INITIAL DRAG FOR UPCCNTBL 

805 FPSS 

FPSS=Fr/SEC/SEC 

R0038 

ahookdv 

TEtW IN GAM4AL CALC. = AHOCK DVL 

16 


R0039 

Al 

DRAG VALUE IN FACTOR CALCULATICN 

805 FPSS 


R0040 

ALP 

CONST FOR UPCCNTRL 

1 


R0041 

aekep 

keplbr range 

21600 NM 

)W = NAUTICAL MILE 

R0043 

ASPI 

PINAL PHASE RANGE 

21600 


R0044 

ASPUP 

UP-RANGE 

21600 NM 


R0045 

ASP3 

CWM4A CORRECTIW 

21600 NM 


R0046 

ASPDml 

RANGE DOWN TO PUU,-UP 

21600 NM 


IW04T 

ASP 

PREDICTED RANCE 

21600 NM 

NOT STORED 

R0049 

COSO 

C0SINE(GA>M\L) 

2 

= COSG/2 

ROOSl 

CAH) 

RECIPROCAL DRAG, - 4 /D 0 B-s 

e4/FPSS 


R0052 

D 

TOTAL ACCELERATION 

805 ITSS 


R0053 

Do 

CONTROLLED CWSIANT D 

805 FPSS 


R0054 

CHOCK 

TERM IN GAMAAL CCMPUTATION 

805 FPSS 


R0055 

DIFP 

THBTNM-ASP {RANGE DIFFERENCE) 

21600 NIA 


Roose 

DIFFOU) 

PREVIOUS VALUE OP DIFF 

21600 NM 


BOOST 

DLEWD 

CHANGE IN LEWD 

1 


R0058 

dr 

REFERENCE DRAG FOR DOWNCONTHa, 

805 FPSS 

NOT STORED 

R0060 

DBEFR 

REFERENCE DRAG 

805 FPSS 

NOT STOEIRD 

R0062 

* DVL 

VSl-VL 

2 VSAT 


R0063 

B 

ECCENTRIC ITY 

4 

NOT STORED 

R0065 

Pi 

DRANGB/D DRAG (FINAL PHASE) 

2700/805 

= FX *S 

R006T 

P2 

DRANGE/D ROOT (FINAL PHASE) 

2700/2VS NM/FPS 

= FX +4 
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1(0069 

J'S 

ORANGB/D (L/D) 

2T00 IM 

= PX 

ROOTl 

PACT! 

CONST POR UPCCNTHL 

SOS PPSS 

R00T2 

PAOra 

CONST POR UPCONTRL 

1/805 PPSS 


BOOTS 

PACTOR 

USED IN UPCONTRL 

1 

♦ MAXD«4 VAU« DENOIES UNSCALHl 

BOOTS 

CIA^MAL 

plksit path angle at VL 

1 RADIAN 

variable vMLffli enai scaled 

BOOTT 

aA»M\Li 

SIMPLE POEM OP aA^MAL 

1 RADIAN 

variable has SW*IMJM VALIE OP ONE. 




# 
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Bo S3 


P00T9 

ROOSl 

VARIABLE 

description 

HlXmjM valle 

CCMPUIER NAFE 





Rooes 

WADSOP 

INDICATOR FOR INITIAL ROLL 

1 


R0084 

KA 

DRAG TO LIFT UP IP DOIN 

805 FPSS 

= RAT 

Roose 

klat 

lateral switch OAIN 

1 

(NCM = .0125) 

Roosa 

K2ROLL 

INDICATOR FOR ROLL SWITCH 



R0089 

LAO 

MAX L/D (MIN ACTUAL vailCLE L/D) 

1 


R0090 

LADPAO 

NOMINAL VBHICLE L/D, SP PAD L(MD 

1 

(NCM = 0.3) 

R0092 

latano 

lateral rangb 

4 RADIANS 


R0093 

lEQ 

EXCESS C.p. (VER (aWV=(VSO-l)OS 

128.8 FPSS 


R0094 

LEWD 

LHCCNTROL REFERaiCB L/D 

1 


R009S 

LCD 

FINAL PHASE L/D 

1 

(NCM = 0.18) 

R009T 

LQDPAO 

FINAL PHASE L/D, SP PAD LOAD 

1 


R0098 

L/D 

DESIRED LIFT TO DRAG RATIO 

1 


R0099 


(VERTICAL PLANE) 



ROlOO 

L/Dl 

TEMP STORAGE FOR L/D IN LATERAL 

1 


ROlOl 

L/DCMINR 

LAD COSCISDBO) 

1 

(NOW = 0.2895) 

R0103 

PHaMNOL 

predicted RANC3E (FINAL PHASE) 

2700 )W 

= PHHXANG 

R0105 

02 

FINAL mASE RANGE -23500 03 

21600 )W 


R0106 


02 = FQKLAD) 



ROIOT 

Or 

MINIMM DRAG FOR UPC(NTR0L 

805 EPSS 


ROlOa 

FOOT 

altitlde rate 

2 VSAT 


ROlOO 

BDOTREP 

REFERENCE ROOT FOR UPCCNTRCL 

2 VSAT 


ROllO 

BDTR 

REPERBXJE ROOT FOR DOWNCCNT 

2 VSAT 

HOT S^VED 

IR0112 

RDLLC 

RCLL CCMVIAND 

1 RBVOLUTICN 


R0113 

RTOOO 

RANGE TO GO (PINAL PHASE) 

2700 

= FX +2 

ROUS 

SL 

SINE OF LATIUCE 

1 

NOT SAVED 

ROUT 

T 

TIME 

B 28 CENTISEC 

= TIME2,TIMEi 

R0119 

IHBW 

DESIRED RAN(E (RADIANS) 

2 PI RADIANS 

= THBTAH • 

R0121 

THETNM 

DESIRED RANGE (NM) 

21600 NM 

NOI EXISTENT 

R0123 

V 

velocity MAGNITUE 

2 VSAT 


R0124 

VI 

initial velocity for UPCCNTROL 

2 VSAT 


R012S 

VL 

EXIT VELCCITY FOR UPCCNTRCL 

2 VSAT 


R0126 

VREP 

HEFERBWIE velocity for UPCCNTRCL 

2 VSAT 


R012T 

vsi 

VSAT OR VI, WHICHEVER IS SMAUER 

2 VSAT 


R0128 


2 2 



R0129 

vbars 

VL /VSAT 

4 


R0130 


2 2 



R0131 

VSQ 

NOfMALISED VEL. SQUARED = V /VSAT 

4 

= VSOUARE 

R0133 

ITT 

earth rate times Tli'e 

1 HEVOLUTICN. 

NOT S^VED 

R0135 




= WIE (DTEAROT) 

B013T 

X 

INTEfe>EDIATE VARIABLE LV O-LIMITER 

2 VSAT 

MOT SAVED 

R0139 

y 

LATERAL MISS LIMIT 

4 RADIANS 

NOT SAVED 


♦ 


I 
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BCIHA OCMPUtER erasable locations not 9iCWN ON PLQf CHARTS 


variable description 


HAXIMM VALUE 


OOTQAODR 

xpipBir 

YPIPBUP 

ZPIPBUP 

PIPOlR 

JJ 

m - 

GRAD 

Pic 

PJC ♦ 1 

py ♦ 2 

Rf ♦ 3 
PX ♦ 4 
py ♦ 5 

T»4lB 

TIMB/RTO 

DTEAROT 


address ffilECMHO BY SEoeiCEH 

lyjPFER TO STORE X PIPA COUNTS 
Supper to store y pipa counts 
bjpfer to stche z pipa counts 

COUNTS PASSES THRU PIPA READ ROUTINE 
INDEX IN PINAL PHASE TABLE LOCK-UP 
INDEX IN PINAL PHAffil TABLE LOCK-UP 
interpolation PACTOR in PINAL PHASE 


DRANGE/D L/D = P3 

arep 

RTOGO 

HDOIEEP 

DHANGE/D HXJT = P2 
DHANGE/D DRAG = Pi 

tbnporary location 

TL'E OP initial TARGET RTINIT 
EST TL** BETWEEN RTINIT AND BT 


2T00 fW 
805 PP3S 
2700 IW 
V8AT/4 

21600/2VS NM/FPS 
2700/805 NM/PPS3 


B 28 CENTISEC 
B 28 CENTISEC 


IPflT V vector 


UNIT H VECTOR 


NBQATIVfi velocity BEL TO ATMOSP 2 VSAT 




OCWUIER arlTCHES 


INITIAL state 


CM/PLAGS = STATE +6 


SmiYDSP 

GCNBPAST 

BELVELSW 

BQSW 

PIRSTPAS 

HIND 

INRLSW 

LATSW 

.OSGSW 


DO ©TIRY DISPLAY, IF SET 
INDICATES IVERSIOOP CP TARTET 
relative velocity switch 

PINAL PHASE SWITCH 

initial pass THRJ HJNTEST 
INDICATES Iteration in huntest 
lndicates lnit roll attitlce set 
inhibit DOEJNLIPT switch ip NOT set 
indicates drag EXCJEEDS .05 GS 


NCN-8RANCH (l) 
NCN-BrANCH (0) 
NCN-BRANCH (q) 
NCN-BRANCH (0) 
NCN-BRANCH <0) 
NCN-BRANCH (q) 
NCN-BRANCH Co) 
Branch ci) 
branch <0) 


indicates GCNE past target (set) SHJ'-INITIALZNG 
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P0192 

constants and gains 

VALLE 


110194 . 





110196 

Cl 

factor in alp computaticn 

1.25 


R0198 

Cl6 

CWSID CMIN ON DRAG 

.01 


1(0200 

ClT 

CmsTO GAIN ON ROOT 

.001 


R0202 

Cl8 

BIAS VEL. FOR PINAL PHASE START 

500 

FPS 

R0204 

C20 

MAX drag for DCWN-LIPT 

175 

FPSS 

II0206 

CMOOK 

FACTOR IN AHOOK CCMPOIATICN 

.25 


1(0208 

mi 

FACTOR IN QAM4AL COMPOWTICN 

1.0 


R0210 

C0315 

C03( 15 DEO) 

.965 


i(0212 

DLSMDO 

INITIAL VARIATION IN LEs® 

-.05 


R0214 

D2 

DRAG TO Change lewd 

175 

FPSS 

1(0216 

DT 

COMPUTATICN CYCLE TIJ« INTERVAL 

2 

SEC. 

1(0216 

CMAX 

MAxlMlW ACCELERATICN 

257.6 

FPSS 

R0220 

KAl 

factor in kA CALC 

1.3 GS 


R0222 

KA2 

FACTOR IN KA CALC 

.2 OS 


R0224 

KA3 

factor in Do calc 

90 J^SS 

1(0223 

ICA 4 

FACTOR IN Do CALC 

40 FPSS 

1(0228 

K8i 

OPTIMI 2 ED UPCCNTRQL GAIN 

3.4 


1(0230 

KB2 

OPTIMI2ED UPCCNTHOL GAIN 

.0034 


1(0232 

KCMIN 

INCRB®NT 07 Or to detect end op KEPLER PHASE 

.5 

FPSS 

1(0234 

kteta 

Tll« CP FLKUT constant 

1000 


80236 

KLATl 

FACTOR IN KLAT CALC 

1/24 


R023S 

K44 

GAIN USED IN INITIAL ROLL SECTICN 

19749550 FPS 

1(0240 

latbias 

WTERAL switch BIAS TEIW 

.41252961 

1(0242 

LEWDl 

NOMINAL UPCCNTRQL L/D 

.15 


1(0244 

POINTl 

FACTOR TO REDUCE UPCCNTRQL GAIN 

.1 


1(0246 

02 

FINAL PHASE RANCE - 23500 03 

-1002 

NM 

R 024 e 

03 

FINAL PHASE DRANGE/D V 

.07 

IW/PPS 

1(0250 

05 

PINAL PHASE ORANGE/ D OVW 

7050 

NM/HAD 

R0252 

08 

final phase initial flight PATH ANGLE 

.0349 

BAD 

IU)254 

O 7 F 

MIN DRAG FOR UPCCNTROL 

6 

FPSS 

1(0256 

Q7MIN 

MIN VALUE FOR O 7 IN FACTOR CALCULATICN 

40 

FPSS 

1(0258 

019 

FACTOR IN GANMALl CALOjLATICN 

.5 


R0260 

021 

FACTOR IN 02 CALCULATICN. 

1000 

NM 

R0262 

022 

FACTOR IN 02 CAIXXJLATICN. 

-1302 

NM 

R0264 

VPINALl 

VELOCITY TO START FINAL PHASE CN INITIAL ENTRY 

27000 

FPS 

R0266 

VFINAL 

FACTOR IN INITIAL UP-DOWN CAID 

26600 

FPS 

RO260 

VIMIN 

VL 

18000 

FPS 

RO270 

VMIN 

velocity to switch TO RELATIVE VEL 

VSAT/2 


1(0272 

VBCCNTOL, 

ROOT TO start into huntest 

700 

FPS 

R02T4 


VRCCNT = COMPUTER NAME 



R0275 

25NM 

TOLERANCE TO STOP RANCK ITERATICN 

25 

NM 

1(0277 

VQUIT 

VELOCITY TO STOP STEERING 

1000 

FPS 


(8 O-S) 
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P0279 

R0280 

oatvEHsioN factors and scaling Constants 

R0281 

BIK 

angle in RAO to IM 

110283 

os 

NCMINAL 0 VALUE FOR SCALING 

K0285 

RS 

Atmosphere scale height 

110287 

J 

(SlAVITY KAR^^CNIC CCEFFICia<T 

R0289 

KBB 

equatorial earth rate 

R0291 

MIB 

earth Gravitational cxwstant 

110293 

m 

earth radius 

110295 

tea 

BARIH equatorial RADIUS 

110297 

vsat 

satellite velocity at re 

110299 

wie 

earth hate 

A0301 

110302 

< 

DISPLAY omMTlTlES 

110303 

— 



343T.T488 
32.2 
28500 
.00182346 
1S46.T0168 
3.988032233 
21202900 
20925T36.2 
25T86.19T3 
.0000729211505 HAD/SEC 


m/RAO 

PPSS 

FT 

FPS 

B 14 CUBIC M/ sec SEC 

FT 

FT 

FPS 


taro GSOP AS-278, VOL 1, FIO. 5.6-3 CQ4SMNTS, GAINS, BTC. 


110304 

lies SBC 

110305 

variable 

110308 

— 

110307 

Oflx 

R0309 

vpnai 

R0311 

110312 

OAMAAEI 

110314 

110315 

D 

110317 

vmoi 

110319 

R6SXAH 

110321 

CAT 

110323 

UMO 

R0325 

KrOGO 

R0327 

110328 

VIO 

110330 

R0331 

TK 

R0333 

110334 

BDLLC 

110336 

LATANG 

110338 

WWGBRR 

110340 

110341 

HDOT 

B0343 

or 

110345 

VL 


<3HB seCTION 4 OP THE GSOP FOR SICK CCNvENtICNS. ) 


DESCRIPTICN 


PBailCTH) MAXIMUM OITOY ACCEL 
predicted velocity At altitude 
400K ft ABOVE FISCHER RADIUS. 
PRHIICTED GA.M4A AT ALTITIDE 
400K FT ABCVE FISCHER RADIUS 
DRAG ACCELERATICN 
INERTIAL velocity MACNITUDE 
DESIRED RANGE ANCLE m 
present LATITlCe 
PRESENT LCNGITUDE 
RANOE ANOE to SPLASI FRCM 
BNSALT ft above FISCHER RADIUS. 
predicted velocity at altitude 

BISALT FT ABOVE FISCHER RADIUS. 
TIFE OP FIREE PALL TO ALT 
atSALT FT ABOVE FISCHER RADIUS. 
ROLL CCM4AND 

Cross-range error (xrncerri 

DOWN RANGE ERROR 
(PRHWNG - THBIAH ' IN NM) 

altitude rate 

MINI^^^^ DRAG FOR UPCCKTROL 
EXIT veixkity for UP-CCNTROL 


MAXIMUM VALUE 


183.84 OS 
128 M/CBVTISBC 


It 60 
M 60 


1 REvain’ICH N 60 


805 FPSS 
128 M/CENTISEC 
1 REvourricN 
1 RBVOUn'ICN 
1 REvcurricN 
1 REVOLUTICN 
(IN NM) 

128 M/CENTIseC 


I* 64 

I* 64, N 68 
It 64, N 67 

If 67 
It 67 
It 63 

ft 63 



B 28 CaVTISBC H 63 


1 REVOLUTICN 
4 RADIANS 
1 REVOUiriCN 


It 66, N 68, N 69 
!t 66 
It 66 


128 M/CBVTISBC N 68 

805 FPSS Jt 69 

2 VSAT N 69 
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P034T 

BODY ATTIHie OUANTITIES (CM/POSE) 


R0348 


— 


R0349 

VARIABLE 

DBSCrIPTICN 

MtXMJM VAUB 

R0351 




R0352 

R0353 

-VHBL 

HBOATIVE VELECITY HEL TO ATMOS. 

2 VSAT 

R0354 

R0355 

OLOUYA 

USED FOR IKA BELCW 1000 EPS 

2 

R0356 

R035T 

tBCA/2 

iwiT vector triad 

2 

R035B 

R0359 

UYA/2 

BASED CN 

2 

R0360 

R03ei 

UZA/2 

THE trajectory. 

2 

R0362 

R0363 

UB)(/2 

UNIT vector 

2 

110364 

UBY/2 

BODY triad 

2 

R03S5 

- 



R0366 

UBz /2 

POR CM. 

2 



i 
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RBamiY oontbol 


USSR.S PACE NO. 1 


BOOOl 

hitky initialization routine 



nooz 

— 

— 

— 



- 


0003 





25,2000 


bank 25 

0004 

REP 

1 



25,2000 


SETIXIC REaiTHY 

0005 





25,2000 


bank 

0008 

REP 

1 





COUNT* $S/BiraY 

OOOT 

REP 

7 

LAST 

750 

E7,1451 


ebank= btinit 

oooa 

REP 

6 

LAST 

661 

4753 


raartHY = ebank7 

0009 

REP 

11 

LAST 

661 

4752 


HIAOO equals ESANK6 

0010 

REP 

6 

LAST 

TT9 

4675 


NTSYPRio Equals phiozo 

0011 

REP 

48 

LAST 

701 

0102 


CM/PIAGS equals state +6 

0012 





25,2000 

77776 1 

STARieiT Exit 

AOOI 3 







coc 

0014 

REP 

1 



25,2001 

4 2113 1 

Cs BHMASK 

AOOIS 








OOIT 





25,2002 

0 0004 0 

INHINT 

Mie 

REP 

s 

LAST 

T78 

25,2003 

7 0102 0 

MAaC CM/PIAGS 

A0020 








A0021 








A0022 








A0023 








0024 

REP 

1 



25,20 04 

6 2114 1 

AD B<TRY9» 

0025 

IffiP 

6 

LAST 

798 

25,2005 

54 102 0 

TS CM/FLAGS 

•026 





25,2006 

0 0003 1 

RELINT 

0027 

REP 

204 

LAST 

785 

25,2007 

0 6006 1 

IC INIPHBT 

0028 





25,20 1 0 

77735 0 

SLOID 

0029 

BEF 

1 



25,2011 

03011 1 

LODPAD 

•030 

REP 

2 

LAST 

116 

25,2012 

03626 0 

STORE LCD 

0031 





25,2013 

77735 0 


•032 

REP 

1 



25,2014 

03010 0 

LADPAD 

0033 

REP 

2 

LAST 

116 

25,2015 

03624 1 

STORE LAD 

0034 





25,2016 

77605 1 

DMP 

0035 

REF 

1 



25,2017 

15320 1 

COS15 

0036 

REP 

2 

LAST 

116 

25,2020 

17630 1 

STCDL L/DCMINR 

•03T 

I«P 

1 



25,2021 

15145 0 

IATS,0PE 

0038 





25,2022 

70405 1 

DMP SRl 

0039 

REP 

3 

lAST 

T98 

25,2023 

03624 1 

LAD 


( SEHYICBR) 


IW = 83 

herb fbcm cm/pose . hestahted in cm/pose. 


initialize all switches to zero 
except latsw, entrydsp and gcnepast. 
OCNEBY 112D bits PLAOt.SELP INITIALIZING 


ENTRYDSP = 920 873 
GCNEPAST=95D Bio, BELVELSW=96D B9 
EOSW = 97D Be 

HIND=99D B6 INHL9»=10oD B5 

IATSW=101D B4 .05GSW=102D B3 


set ©iraYDSP, latsw, gcnepast. 




L/DCHINR = LAD COSClS) 


KLAT = IAD/24 
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0040 

RES' 

2 

LAST 

118 

25,2024 

17632 

0 

STCDL 

klat 


0041. 

BSP 

1 



25,2025 

15176 

0 


07P 


0042 

REP 

2 

lAST 

276 

25,2026 

17175 

1 

STCDL 

07 

07 = O7P 

0043 

REP 

1 



25,2027 

17363 

1 


nearcne 

1.0 -ibit 

0044 

REP 

2 

LAST 

116 

25,2030 

17814 

1 

STODL 

factor 


0045 

RES' 

4 

LAST 

798 

25,2031 

03624 

1 


LAO 


0048 





25,2032 

57565 

0 

SIGN 

DCCMP 


004T 

HEP 

0 

LAST 

747 

25,2033 

03327 

1 


HBADSUP 

MAY BE NOISE FOR DISPLAY P61 

0048 

HEP 

2 

lAST 

116 

25,2034 

37634 

1 

SlCALL 

h/D 

L/D = - LAD SGN(HEADSUP) 

0049 

REP 

2 

LAST 

744 

25,2035 

52063 

0 


SlAHTENl 

RETUIW VIA (XmMDDR 

0050 





25,2036 

47375 

0 

VLCAD 

VXV 


0051 

REP 

14 

LAST 

790 

25,2037 

01177 

1 


VN 

(-7) M/CS 

0052 

HSP 

4 

LAST 

789 

25,2040 

01760 

1 


UNITR 

.5 unit rep COORDS 

0053 





25,2041 

50256 

0 

UNIT 

DOT 


0054 

HEP 

4 

LAST 

770 

25,2042 

03474 

0 


HT 

RT/2 TARGET VECTOR HEP COORDS 

0055 

HEP 

4 

LAST 

173 

25,2043 

03876 

0 

STORE 

LA TANG 

LATANG = mi.HT /4 

0058 





25,2044 

47076 

0 

DCCMP 

RIB 


005T 

RSP 

13 

LAST 

403 

25,2045 

45707 

0 


SIGNMPAC 


0058 

REP 

2 

LAST 

116 

25,2046 

17644 

1 

STODL 

K2RCLL 

K2RCLL = -SGNdATANO) 

0059 

HEP 

5 

LAST 

799 

25,2047 

03624 

1 


LAD 


0060 





25,2050 

43205 

1 

DMP 

DAD 


0061 

REP 

1 



25,2051 

15200 

1 


021 


0062 

HEP 

1 



25,2052 

15202 

0 


022 


0063 

RS' 

2 

LAST 

117 

25,2053 

03712 

0 

STORE 

02 

02 = -1152 ♦ 500 lad 

0084 





25,2054 

66331 

0 

SSP 

SSP 


0065 

REP 

3 

LAST 

752 

25,2055 

03646 

0 


GOTCADOR 

SET selector -FOR INITIAL PASS 

0066 

REP 

1 



25,2056 

5 2260 

1 


INITROLL 


006T 

HEP 

4 

LAST 

7A9 

25,2057 

03325 

0 


POSEXIT 


0068 

HEP 

1 



25,2060 

52115 

0 


SCALEPOP 

set CM/POSB TO CCNTINIJE AT SCALEPOP 

0069 





25,2061 

77634 

0 

KIB 



OOTO 

REP 

2 

LAST 

756 

25,2062 

53603 

1 


sEI^wxr^ 

CMIT INITIAL DISPLAY, SINCE 1ST aESSBAD 

BOOTl 

calculate the 

initial target vector’ 

RTINIT, ALSO RTEAST, RTNOR'1 

AND RT. AIL, ABE .3 UNIT AND IN 

ROOT3 

BEPEREW3E COORDINATES. 






00T4 





25,2063 

77220 

1 

SWRIENl STO 

VLOVD 


0075 

REP 

4 

LAST 

799 

25 , 2064 

03645 

0 


GOKMDOR 


0076 

REP 

6 

LAST 

634 

25,2065 

03401 

1 


IATT SPL) 

TARCKT COORDINATES 

0077 





25,2066 

43014 

0 

CLEAR 

CLEAR 

DO CALL USING PAD RADIUS. WIU, UNIT IT. 

0078 

HEP 

10 

LAST 

756 

25,2067 

00662 

0 


ERADFIAG 

ANYWAY. 

0079 

HEP 

19 

LAST 

756 

25,2070 

01663 

0 


LUNAFTAG 


0080 

REP 

10 

LAST 

634 

25,2071 

15104 

0 

STCDL 

LAT 


0081 

REP 

1 



25,2072 

15332 

1 


3ZEBOS 


0082 

REP 

11 

LAST 

799 

25,2073 

15110 

0 

STCtXj 

lAT +4 

SET ALT^O . 

0083 . 

REP 

13 

LAST 

783 

25,2074 

01205 

1 


PIPTIME 

ESTABI.ISH RTINIT AT TI.-® OP PRESENT 




«#■ ASSBOLE RBVISIQN 2+9 OP AQC PROCSIW CXLOSSUS BY NASA 2021111-0+1 
L BEBOHY CCNraOL 


20’35 OPT. 28,1968 PAMXHA .080 PAOB 800 


A008+ 

0085 

0086 
0087 

.0088 

0089 
A0090 

0091 

0092 

0093 
009+ 
0095 

0090 

0097 

0098 

0098 

0099 

0100 


REP 

REP 

REP 

REP 

REP 


REP 

REP 


IAST 118 
last 730 

last 798 


LAST 770 


REP 5 LAST 799 


LAST 117 
last 799 


25.2075 

25.2076 

25.2077 

25.2100 

25.2101 

25.2102 

25.2103 
25,210+ 

25.2105 

25.2106 

25.2107 

25.2110 

25.2111 

25.2112 

25.2113 
25,211+ 


37524 0 
25373 1 
TTS58 1 
1T452 1 
12112 0 

37800 0 
+5215 0 
724+1 0 
01780 1 
7TT28 1 
37T02 0 
03545 0 


SlCALL TD«/HT0 
LALOTOBY 

UNIT 

STODL, KTWIT 
500SEC 

SlCAU, DTEAROT 
EARROTl 
dot SLi 

UNITS 

AC03 

SlCALL THETIH 

OOTCAODn 


00003 1 SOOSEC 2DBC 50000 B-28 

01520 1 

11T74 0 eiTHlSK OCT 11 T 74 

11010 0 BlTOYar OCT 11010 


UffilUS PAOB NO. 


E7 S3 


BN AND VM. 

SAVE TIME BASE OP RTINIT." 

C(MPAC) rTtte (PIPTIMB) 

answer in alphav also 
.5 UNIT TARGET REP COORDS 

NCMINAL BITHY TIME POR P63 
TMB/RTO = PIPTIMB, STILL. 

initialize EARHOT 
get RT 

HT/2 IN MPAC 

RANGE ANGLE / 36 O 
RETURN TO CALLER 

CS 


a+THYDSP Bi 3 , GCNEPAST BlO, LATSW B 4 






20*35 OCT. 28,1968 PANDORA .080 PACE 801 


ASSBELB REVISION 249 OP AOC PROKIAM COUOSSUS BY NASA 2021111-041 
RBSmor CONTROL 


USBRaS PACE NO. 


•103 

•103 

ter 

1 



2S,211S 

2S,21ia 

TT624 

S212S 

1 

0 

9CALEPOP CAli 

TARGETNO 

•104 





2S,211T 

TTTTa 

1 

exit 


•105 

•10« 

REP 

85 

LAST 

T84 

25.2120 

25.2121 

0 5301 
10035 

0 

0 

REPAffilO TC 

OCT 

WASCHNO 

10035 

•lOT 

RES' 205 

LAST 

798 

25,2122 

0 6006 

1 

1C 

INTTRET 

ROlOa 



JUMP 

TO PARTICULAR HB-B«RY PHASE* 


Aoioa 

0110 

•111 

HEP 

6 

LAST 

800 

25.2123 

25.2124 

TT6S0 

03645 

1 

0 

»X]B4CE 

OOTO 

OOHMDOR 


SERVICER 5.3 RESTART AT REPAZElo 


OOKMDOR CCNWINS the address of the roll COMAND EOIATICNS APPROPRIATE TO THE CURRENT PHASE OP 


ROUS RE-ENTRY. SEOUENCINO IS AS FQLLOrS’ 


INITRQIi. address IS SET HERE INITIALLY. HOLDS INITIAL RCU, ATTITLDE UNTIL kAT IS EXCEEDED. THEN HOIDS NEW ROLL 
attitude until VRTHREai IS EXCEEDED. THBI BRANCHES TO 


B0119- HIKIEST THIS SECTION CHECKS TO SEE IE THE PREDICTED RANGE AT N01INAL L/D ETICM PRESENT CCNDITIONS IS LESS 


than the desired RAN(®. 

IP NOT - A BOLL CCNMAND IS (SNERATED BY THE CONSTANT DRAG CCNTRCLLER. 

IP SO - CONTROL AND GOTOADOR ARB SET TO UPCONTRL. 

USUALLY NO ITERATION IS INVOLVED EXCEPT IP THE RANGE DESIRED IS TOO LONG ON THE FIRST PASS THROUCH 
HUNTEST. 


R0128 UPCCNTRL CCNTBOLS ROLL DURING- THE SUPBR-CIRCULAR PHASE. UPCONTRL IS TERMINATED EITHER 


(A) VIHEN THE DRAG (AS MEASURED BY THE PIPAS) PALLS BELOW Or , OR 

(B) IP ROOT IS NEGATIVE AND RBFEREICE VL EXCEEDS V. 

IN CASE (A), GOTQADDR IS ®r TO kEP2 AND IN CASE (B), TO PREDICTS SKIPPING THE KEPLER PHASE OF 
BURY. 


R0135 KEP2 
B0138 


GOIOADOR IS sett HERE DURING THE KEPLER PHASE TO MONITOR DRAG. THE SPACECRAFT IS INSTANTANECXJSI,Y 
TpTMvgn IN PITCH AND YAW TO THE COMPUTED- RELATIVE VEIOCITY. THE LAST CCMPUTED ROLL ANGLE IS .HAINTAINHJ. 
WHBI THE EGASURED DRAG EXCEEDS QT +0.5, (XXTOADDR IS SET TO 


H0141 PRHlICrs THIS CONTROLS THE PINAL SUB-ORBITAL PHASE. ROLL CCM4ANDS CEASE 
1(0142 WHEN V IS LESS THAN VQUIT. AN EXIT IS MADE TO 


R0143 P6T.1 

R0145 

R014e 


the LAST COMPUTED ROLL ANGLE IS MAINTAINED. HATE DAMPING IS DONE IN PITCH AND YAW. PRESENT LATITUDE 
AND LCNOITUDE ARE CCMPUTED POR DISPLAY. 

BnRY IS -TERMINATED WHEN DISKY BBSPCNSB IS MADE TO TO THIS PINAL FIASHINO DISPLAY. 






) 

! 


P0148 

110149 


ASSB«LB RSVISICM 249 OP AGO PROWW CXX/MSUS BY NASA 2021111-041 
HEOnSY CONTROL 

PHOffiSS AVERAGE O OUnVT. . .SCALE IT AND tBT WPirT DAW 


20’35 OCT. 28,1968 PANDORA .080 PAGE 802 
USBRaS PAGE NO. 5 ^83 


R0150 ♦ SWRT WBGETINO . . . 

0151 HEP 9 ■ LAST 800 E7,145i 

A0152 

A0153 


A0154 

0155 

0156 REP 
015T REP 

0158 REP 

0159 

0160 REP 

0161 

0162 REP 

0163 REP 

0164 REP 

0165 

0166 REP 

0167 REP 

0168 

0169 REP 

0170 

0171 REP 

0172 REP 

0173 

0174 REP 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 


EBA«C= RTINIT 


WHOEINO IS CALLED BY Pei, PRCM tSWUP 4. 
WHGBINO IS CALLH) BY ©(TRY, PRCM GROUP 5. 





25,2125 

77214 

0 

WRGEING BOPP 

VLCAD 

BIIEH WITH PHCSEH EB PRCM CM/POSE(TEST) 

1 



25,2126 

03346 

0 


RELVBLSIf 

RBLVELSW = 960 BIT 9 

1 

LAST 


25,2127 

52133 

1 


GETVEL 

want inertial VEL. GO GET IT. 

2 

118 

25,2130 

03526 

0 


-VHEL 

Nar V IS relative, ccmtinue 




25,2131 

52076 

1 

VCCMP 

GOTO 

(VHEL) = (V) + KWB UNITBHJNITW 

1 



25,2132 

52136 

1 


GETUNITV -1 

- VHEL WAS left BY CM/POSB 


LAST 


25,2133 

74375 

0 

GBTVEL VLCMD 

VX3C 

inertial V wanted 

15 

799 

25,2134 

01177 

1 


VN 

KVSCALE = (12800 / .3048) / 2VS 

1 

LAST 


25,2135 

15230 

1 


KVSCAI,B 

KVSCALE r .81491944 

2 

116 

25,2136 

03516 

0 

STORE 

VEL 

V/2 VS 


■LAST 


25,2137 

44056 

1 

GBIUNITV IKIT 

STO 


6 

770 

25,2140 

03373 

0 


60GB9HBT 


2 

LAST 

116 

25,2141 

17510 

0 

STCDL 

UNITV 

* 


LAST 


25,2142 

00043 

0 


34 D 


2 

116 

25,2143 

03622 

1 

STORE 

VSajARB 

VSO /4 

1 



25,2144 

776 25 

0 

DSU 


LEO = VSQUAflE - 1 

LAST 


25,2145 

15322 

0 


fourth 

4 0-S PULL SCALE 

2 

116 

25,2146 

17654 

0 

STCBL 

LEO 

LBO /4 


LAST 


25,2147 

00045 

0 


360 


2 

117 

25,2150 

27674 

1 

STOVL 

V 

V/2 VS = VEL/2 VS 




HEP 3 LAST 802 

REP 6 LAST 800 
REP 3 LAST 276 

REP 10 LAST 790 

REP 1 

REP 1 

REP 3 LAST 275 
REP 4 LAST 802 


25.2151 

25.2152 

25.2153 

25.2154 

25.2155 

25.2156 

25.2157 

25.2160 

25.2161 

25.2162 

25.2163 

25.2164 


035 16 0 
7244 1 0 
01760 1 
27700 0 

01163 1 
41246 1 
15232 0 
53152 1 
55132 1 
27640 0 
03516 0 
53435 0 


DOT 


VEL 
SLl 
LNITO 

STOVL ROOT 


DSTORE 


DELV 

ABvAL DMP 

KASCAIE 
SLl BzE 

SETMIND 
STCVl, D 

VEl, 
UNIT 


VXV 


HDOr= V.IJNITR 
ROOT / 2 VS 

PIPA COUNTS IN PLATPOR4 CCXDHDS. 

ACCELERATICN USED TO APPHOK DRAG 
UNI = UNIT(V*H) 




ASSBei£ REVISION 249 OP AGO PROCSAM COLOSSUS BV NASA 2021111-041 
BHBmOf CONTROL 


•18T 

IMF 

7 

lAST 

802 

25,2185 

01760 

1 

018S 

IMF 

4 

LAST 

766 

25,2166 

03502 

0 

0189 





25,2167 

71214 

0 

0190 

IMF 

2 

LAST 

802 

25,2170 

03346 

0 

0101 

IMF 

1 



25,2171 

55073 

0 

0102 

IMF 

2 

lAST 

799 

25,2172 

15332 

i 

0193 





25,2173 

43225 

0 

A0194 








0195 

IMF 

3 

LAST 

800 

25,2174 

03524 

1 

0196 

REF 

14 

LAST 

T99 

25,2175 

01205 

1 

oirr 

REF 

8 

LAST 

800 

25,2176 

37606 

0 

0198 

HEP 

3 

LAST 

770 

25,2177 

46225 

0 

0190 





25,2200 

40241 

1 

0200 

HEP 

5 

LAST 

803 

25,2201 

03502 

0 

0201 





25,2202 

00001 

0 

0202 

REF 

5 

LAST 

799 

25,2203 

27676 

0 

0203 

REF 

5 

LAST 

799 

25,2204 

03474 

0 

0204 





25,2205 

77814 

1 

0205 

REF 

1 



25 , 2206 

03667 

0 

0206 





25,2207 

50235 

0 

0207 

FHF 

8 

LAST 

803 

25,2210 

01760 

1 

0208 

HEP 

6 

LAST 

803 

25,2211 

03502 

0 

0209 





25,2212 

43044 

0 

0210 





25,2213 

52215 

0 

0211 

HEP 

2 

LAST 

803 

25,2214 

03467 

1 

0212 





25,2215 

77775 

1 

0213 

REP 

6 

LAST 

803 

25,2216 

03474 

0 

0214 





25,2217 

45241 

1 

0215 

REP 

9 

LAST 

803 

25,2220 

01760 

1 

0216 

RH' 

1 



25,2221 

15162 

0 

0217 





25,2222 

43244 

1 

0218 

REP 

1 



25,2223 

55135 

0 

0219 

HEP 

2 

LAST 

803 

25,2224 

15162 

0 

0220 





25,2225 

65552 

0 

0221 

REP 

3 

LAST 

800 

25,2226 

03702 

1 

A0222 








0223 





25,2227 

57414 

1 

0224 

REP 

3 

LAST 

803 

25,2230 

03707 

1 

A022S 








A0226 








0227 





25,2231 

52232 

0 

0228 

HEP 

2 

LAST 

2T6 

25,2232 

17714 

0 

0229 

REP 

4 

LAST 

BOZ 

25,2233 

03640 

0 

0230 





25,2234 

50025 

0 


WITH 
STORE mi 


DLQAD 

RELVELSW 

QBTBTA 

3ZBHOS 

HAD 


TI(«/RTO 

piptime 
STCALL DTEAROT 


EARROT2 
DOT SETPD 
UNI 
0 

STWL LATANO 


HT 

CLEAR 

OCNEBY 

vxv dot 


UNITH 

UNI 

set 

♦2 

OCNESy 


RT 

D9J 

UNITE 

NEARI/4 

DAD 

TINYTHET 

NEARi/4 

ACOS 


03T02 1 THETDCNE STORE THETAH 


BCN DCCMP 
GCNEBY 


+1 

STCDL RTGCN6T 


20*35 OCT. 28,1988 PANDORA .080 PAOB 803 
USBRaS PAGE NO. 6 ET S3 


HEP COORDS. 


PIPTK«-TINE/RTO =ELAPSED TIME SINCE 
HTINIT WAS BSTABLIaiED. 


QET PREDICTED TARCET VECTOR RT 


SINCE (RT) UNIT VBCT, THIS IS 1/4 MAX 
LATANO = RT.UNI 


LATANO = MAC LATANO / 4 


WOW HAVE NOT GCNE PAST TAR(3ET. 

IP RT+UNITR.UNI NEG, GCNEBY=1 
OCNEPAST IS CCNDITICNAL 9W SET IN 
PINAL PHASE. 


SHOW HAVE GKjre PAST TARGET. 


theta = ARCCOSCRT. UNITE) 


TO IMPROVE ACCURACY, CALC RANGE BY 

tinythbt ip high order part op 

ARCCOS ARGUMENT IS ZERO 


THETAH/aeO 

HI WORD, LO BIT =1.32 K'1=360 60/16384 


=1 IF HAVE GONE PAST TARGET. 

(siai may beccme erratic very near 

TARGET DUE TO LOSS OF PRECISICN.) 


RANGE ERROR’ NEG IF Will, FALL WORT. 




1 

I 
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L 

B8BNIRY OCNTROL 





0231 

BBP 

1 



25,2235 

15240 0 


.050 

0232 

HEP 

1 



25,2236 

52255 1 


NO. 050 

0233 





25,223T 

77214 0 

set 

VUMD 

0234 

ve^ 

1 



25,2240 

03074 1 


.OSOSff 

0235 

RBK 

a 

LAST 

T90 

25,2241 

03433 0 


I3BU/BEP 

0236 





25,2242 

50206 0 

PUSH 

DOT 

023T 

BBP 

5 

LAST 

TT2 

25,2243 

03542 1 


UXA/2 

0238 





25,2244 

63552 0 

a^i 

DSO 

0239 





25,2245 

47515 0 

POVL 

VSO 

0240 





25,2246 

56225 1 

DSU 

DOV 

0241 





25,2247 

00001 0 


0 

0242 





25,2250 

75400 1 

BOV 

SOOT 

0243 

BBP 

1 



25,2251 

52253 1 


NODCALC 

0244 

EBP 

1 



25,2252 

03727 0 

STORE 

L/DCALC 

0245 





25,2253 

77650 1 

NOLDCALC GOTO 


0240 

BBF 

T 

LAST 

802 

25,2254 

03373 0 


OOtXNRBT 

024T 





25,2255 

52014 0 

NO. 050 CLEAR 

GOTO 

0248 

BSP 

2 

LAST 

804 

25,2256 

03274 0 


.0509# 

0249 

HEP 

2 

LAST 

804 

25,2257 

52253 1 


NODCALC 


20’35 OCT. 28,1968 PANDORA .080 PAGE 804 
USSRsS PAOB NO. T B? S3 


Exchange with pdl. 


CVPL LAST CLEARED IN EARHOr2 ABOVE. 


THIS WAY EOH DAP. (MAY INTERRUPT) 
.05OSW = 102D Ba 
KEEP SINGLE EXIT FOB ’MHGBINO 






ASSeteLB RBvriSION 249 CF AOC FROCStAM COLOSSUS BY NASA 2021111-041 
BEENnCr OQNTOOL 


20’35 OCT. 28,1968 PANDORA .080 PAOB 80S 
USBBaS PAGE NO. 8 BT S3 



P02S0 

subroutines called by SCALEPOP (TAHGBTINa)* 



0251 





26,3073 




BANK 

26 

0252 

US' 

1 



26,2000 




SETLCC REENTRYi 

0253 





20,3073 




bank 


0254 

lEP 

1 







COlKI* 

IS /ENTRY 

0255 





26,3073 

56345 

0 

OEIETA 

DLOAD 

DOV 

A0256 











025T 

REP 

4 

LAST 

802 

26,3074 

03700 

0 



HDOr 

0258 

REP 

1 



26,3075 

15314 

0 



-HSCALH) 

0259 





20,3076 

41325 

0 


POOL 

DMP 

0260 

REP 

5 

LAST 

803 

26,3077 

03640 

0 



D 

0261 

REP 

1 



28,3100 

15316 

1 



-K3CALE 

0262 





26,3101 

43271 

1 


DOV 

DAD 

0263 

HEP 

3 

LAST 

802 

26,3102 

03674 

1 



V 

A0264 











0265 





26,3103 

43205 

1 


DMP 

DAD 

0266 

REP 

6 

LAST 

805 

26,3104 

03640 

0 



D 

026T 

REP 

7 

LAST 

80S 

26,3105 

03640 

0 



D 

0268 

REP 

8 

LAST 

805 

26,3106 

03640 

0 


STORE 

D 

0269 





28,3107 

71214 

0 


BCN 

DLCAD 

0270 

REP 

2 

LAST 

56 

26,3110 

03307 

0 



EOS* 

0271 

REP 

1 



26,3111 

55116 

1 



SUBETA 

0272 

REP 

4 

LAST 

803 

26,3112 

03702 

1 



1HETAH 

0273 





26,3113 

52005 

0 


DMP 

goto 

0274 

REP 

1 



26,3114 

15234 

0 



KTETA 

0275 

HEP 

1 



26,3115 

52173 

0 



UPOATERT 

0276 





26,3116 

45345 

1 

SUBBTA 

DLOAD 

DSU 

0277 

REP 

4 

LAST 

805 

26,3117 

03674 

1 



V 

0278 

REP 

1 



26,3120 

15322 

0 



VMIN 

0279 





26,3121 

43044 

0 


BPL 

SET 

0280 

REP 

1 



26,3122 

55124 

0 



3LBE»2 

0281 

REP 

3 

LAST 

803 

26;3123 

03066 

1 



FELVELai 

0282 





26,3124 

41345 

0 

SUBBTA2 

DLOAD 

DMP 

0283 

REP 

5 

LAST 

80S 

26,3125 

03702 

1 



THEIAH 

0284 

REP 

1 



26,3126 

15236 

1 



KTl 

0285 





26,3127 

52071 

0 


DOV 

tXXTO 

0286 

REP 

5 

LAST 

805 

26,3130 

03674 

1 



V 

0287 

HEP 

2 

LAST 

805 

26,3131 

52173 

0 



UPOATERT 

0288 





26,3132 

5.2145 

0 

SETMIND 

DIXttD 

GOTO 

0289 

REP 

2 

LAST 

634 

26,3133 

16326 

1 



iBITDP 

0290 

REP 

1 



26,3134 

52162 

0 



DSTORE 


D = D 40C-BD0r/HS -2D/V) DT/2 
DT/2 = 2/2 = 1 


-BXJT/HS PRCM POL. 

EGSBf INDICATES PINAL PHASE. 

= 1000X2PI/(25E14 163.84 

a* ITCH PROM INERTIAL TO RELATIVE VEL. 


ten = KT 

KT = RE(2 PI)/2 vs 16384 163.84/ 2 VSAT 



i 




««>■ AsSE>B 1B RBVISICN 249 OF AGO paxSAM COLOSSUS BY KA3A 2021111-041 
L HESflSY OCWraOL 


0291 

0292 

0293 

0294 

0295 
0298 
029T 


HBF 3 lAST 805 


20’35 OCT. 28,1968 PANDOEW .080 PAGE 806 
USSbS PAGE NO. 9 Bt S3 


26,3135 

51425 0 

TINYIHBr DSU 

ABS 

BnBR WITH X-.249 

26,3136 

16327 0 


IBITDP ♦ 1 

get 1/4 - MPAC 

20,3137 

75461 0 

SL 

SORT 

SCAL8 UP BEPOHB SORT 

26,3140 

20216 0 


13D 

HAS FACTOH FOB UP SCALING 

26,3141 

52005 0 

DMP 

OOTO 


26,3142 

15246 0 


KACOS 


28,3143 

52226 0 


BEUXME 






ASSStBLE BB\^ISIQN 249 OP AOC PRO®AM CQUBSUS BY NAS* 2021111-041 
aBOmY OONTEtOL 


♦ stabt initial roll . . . 


25.2260 

2 LAST T98 25,2000 

25.2260 


BAMC 25 
ffilLOC BBWniY 
BAI«C 


2 LAST T98 TO 805’ 176 176* 


CONT* $S/B«TRY 


25.2260 43014 0 INITROLL BCN 

25.2261 03312 1 

25.2262 52354 1 


3 LAST 804 25,2263 03354 0 


25,2264 53520 0 


BCPP 

INRL92 

INITOLl 

.OSOSH 

LMITL/D 


0312 





25,2265 

63545 

0 

0313 

REE 

3 

LAST 

802 

25,2266 

03654 

0 

0314 





25,2267 

56205 

0 

0315 

HBP 

4 

LAST 

807 

25,2270 

03654 

0 

0316 

BEE 

1 



25,2271 

15304 

X 

0317 





25,2272 

47015 

0 

0318 

REE 

1 



25,2273 

15306 

0 

0319 

HHF 

1 



25,2274 

54432 

0 

A0320 








0321 

Be® 

2 

LAST 

117 

25,2275 

03720 

1 

0322 





25,2276 

45345 

1 

0323 

FHF 

6 

LAST 

805 

25,2277 

03674 

1 

0324 

BEE 

1 



25,2300 

15302 

1 

0325 





25,2301 

51014 

0 

0326 

Be® 

1 



25,2302 

03265 

0 

A0327 








A0328 








0329 

BEE 

1 



25,2303 

52310 

1 

0330 





25,2304 

52131 

0 

0331 

BEE 

7 

LAST 

801 

25,2305 

03646 

0 

0332 

REE 

1 



25,2306 

53311 

1 

0333 

BEE 

1 



25,2307 

5 2343 

1 

0334 





25,2310 

41345 

0 DqBO 

0335 

BE® 

5 

LAST 

807 

25,2311 

03654 

0 

0336 

BEE 

1 



25,2312 

15310 

1 

0337 





25,2313 

77615 

0 

0338 

BBF 

1 



25,2314 

15312 

0 

0339 

bee- 

2 

LAST 

117 

25,2315 

03710 

1 

0340 





25,2316 

40065 

0 


DLOU) DSO 
LEO 


DMP DOY 
LEO 


1/KAi 

EWD RIB 


STORE KAT 


DLQAD DSU 
V 

VFINALl 
CLEAR BPL 

GO® PA ST 


DOEO 
SSP OOTO 

GOKADOR 

KEP2 

INRCLQJT 


DLOID DMP 
LEO 
ICA3 

DAO 

ICA 4 

STORE Do 
BDtV boy 


20’35 OCT. 28,1968 PANDORA ,.080 PAGE 807 
USB>S PAGE NO. 10 E7 S3 


= 63 , 64 .. 

IE D- .050 NBO, GO TO LIMITL/D 


m = 64, Non 


KA = KAi LEO ♦ KA2 


= 25 /(64 1.8) 


= .2 

ROLLC VI HOOT 

XXX.XX DEG XXXXK. EPS XXXXX. EPS 


IE V-VELNALl NBO, GO TO FINAL PHASE. 


(CAN»T CLPWR INH.ai AFTER HERE ’HE STARTS) 
GCNEPAST WAS INITIALLY SET=1 TO FORCE 
RCLLC TO BE4AIN AS DEFINED BY HEADSUP 
INTIL SIART OF P64. (UNTIL D S .050) 


AND IDLE UNTIL D5o.2 G. (NO P66 HERE) 
GO TO LIMIIL/D AFTER SETTING INRI,SW. 


Do = KA3 lEO ♦ KA4 








I 


AsSBBLB BEVISICH 249 OP AGC PROGRAM COLOSSUS BT NASA 2021111-041 

teansx cafntoL 


0341 

0342 

0343 

0344 

0345 
0340 

0347 

0348 

0349 

0350 

0351 

0352 
A0353 
*0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

*0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 


RH' 

REP 

RBP 

REP 

REP 


REP 


REP 


HEP 


REP 


REP 4 LAST 808 


0373 

0374 REP 6 

0375 REP 1 

0376 

0377 RBP 1 

03771 REP 1 



25,2317 

15266 1 



<iooi 


25,2320 

52321 0 



♦1 

IIT 

25,2321 

17706 0 


STODL 

C/Do 

799 

25,2322 

03624 1 



LAD 

T99 

25,2323 

17634 0 


STCDL 

L/D 

805 

25,2324 

03700 0 



HX3T 


25,2325 

41471 0 


DDV 

puai 

807 

25,2326 

03674 1 



V 


25,2327 

41316 0 


DSO 

DMP 


25,2330 

45271 1 


DDV 

DSU 


25,2331 

15276 0 



1/K44 


25,2332 

15300 0 



VP INAL 


25,2333 

40015 1 


DAD 

BOV 

806 

25,2334 

03674 1 



V 

807 

25,2335 

52343 1 



WHOLOur 


25,2336 

71240 1 


E»*( 

DLCAD 

608 

25,2337 

5 2343 1 



INROLOUT 

808 

25,2340 

03624 1 



LAD 


25,2341 

77676 0 


DCCMP 


808 

25,2342 

03634 0 


STORE 

L/D 


25,2343 

77614 1 

inrolout bgpset 

807 

25,2344 

03052 0 



INHLSR 

807 

25,2345 

53520 0 



LIMITL/D 


25,2346 

45 345 1 

KATEST 

DLOID 

DSU 

80T 

25,2347 

03720 1 



KAT 

805 

25,2350' 

03640 0 



D 


25,2351 

52044 0 


Bpl 

goto 

608 

25,2352 

53520 0 



LIMlTL/D 


25,2353 

53224 0 



CCNSID 


25,2354 

43345 1 

INITRLi 

DLOAD 

DAD 

800 

25,2355 

03700 0 



ROOT 


25,2356 

15260 1 



VRCCNT 


25,2357 

45040 1 


BW 

CALL 


25,2360 

5 2346 1 



KATEST 


25,2361 

53014 1 



POREHUNT 




20 ’35 OOT. 28,1968 PANDORA .080 PAGE 808 

US8R«S PAGE NO. n E^r S3 

<-4/25 O) B-8 
CLEAR CVPIND, IP CM. 

C-4/Do) B-8 

IP V-VFINAL ♦KIRDOr/VlCUBED P03,L/D=-LAD 


V-VPINAL ♦(HDOT/V) / K44 Om, 6 

GO TO LIMIIL/D AFTER SETTINO INRLSW. 
GO TO LIMITL/D APIER SETTING INRl^SW. 


®T INRLS» AT BTO FOR RESTART PROTECTICN 
EJTO OP PRE .050 PATH OP INITSai,. 

SPIIQI IS zero INITIALLY 
(GO TO) 

IP KAT - D POS, GO TO CCNSTD 

IP POS, CUT WITH COWAND VIA LIMITL/D 


IP ROOT + VRCCNT POS, GO TO HUNTBST 
IP POSITIVE, PAIJ, INTO HUNTEST. 
initialize HUNTEST. 


# 




20’35 OCT. 28,1968 PMiDOBA .080 PACB 809 




u 


ilSS&eLS BBVISIW 249 OP AOC FBOOEtAM COLOSSUS BY NASA 2021111-041 

teeamx owntoL 


USEUS PACE NO. 12 Bj S3 


POSTS 

* start 

mWT TEST 

•• 







Aom 











H = 84 

0380 





25,2362 

77731 

1 


8SP 


INITIALI® HLNTBST CN PIHST PASS 

0381 

■BP 

8 

LAST 

807 

25,2363 

03646 

0 



ootqaddr 


0383 


1 



25,2364 

52365 

0 



HLNTBST 

BIST GO APIER POBmjNT POB RESTARTS. 

0380 





25,2365 

TTT45 

1 

HJNTEST 

DLQAD 



0300 

OB' 

10 

LAST 

808 

25,2366 

03640 

0 



D 


0301 

HP 

2 

lAST 

IIT 

25,2367 

17664 

0 


STOOL 

Al 

Al/805 = Al/ 250 

0302 

HP 

8 

LAST 

808 

2S,23T0 

03624 

i 



LAD ■ 


0303 

HP 

2 

LAST 

116 

25,2371 

17647 

i 


STOOL 

TSMlB 


0304 

■BP 

■ T 

LAST 

806 

25,2372 

03700 

0 



HOT 


0305 





25,2373 

71240 

1 


BKM 

OLCMD 

IP aXJT NEG,TB4lB=IAD, OTHERWISE = LEWD 

0308 

■BP 

1 



25,2374 

52400 

1 



AoCALC 


030T 

■BP 

1 



25,2375 

03725 

1 



LEWD 


0308 

■BP 

3 

LAST 

809 

25,2376 

17647 

1 


STOOL 

TEWlB 


0300 

i«p 

8 

LAST 

609 

25,2377 

03700 

0 



hot 


0400 





25,2400 

43271 

1 

AflCALC 

DIV 

DAD 

Vl I V ♦ FDOT/TSMlB 

0401 

■BP 

4 

LAST 

809 

25,2401 

03647 

1 



THWlB 


0402 

HP 

9 

LAST 

808 

25,2402 

03674 

1 



V 


0403 

■BP 

2 

LAST 

TO 

25,2403 

14326 

0 


STOOl, 

VI 

Vl/2 VS 

0404 

■BP 

9 

LAST 

809 

25,2404 

03700 

0 



HOT 


0405 





25,2405 

56316 

0 


DSO 

DOvf 

Ao=(Vl/V)SO<D+RDOr SO/CTE'llB 2 Cl HS) 

0408 

HP 

5 

LAST 

809 

25,2406 

03647 

1 



TEMlB 


040T 





25,2407 

43271 

1 


DOV 

DAD 


0408 

■BP 

1 



25,2410 

15272 

1 



2C1HS 


0400 

8BP 

11 

LAST 

809 

25,2411 

03640 

0 



D 


0410 





25,2412 

41205 

0 


DMP 

DMP 


0411 

■BP 

3 

LAST 

809 

25,2413 

00326 

0 



Vl 


0412 

HP 

4 

LAST 

809 

25,2414 

00326 

0 



VI 


0413 





25,2415 

TT6T1 

1 


DtV 



0414 

■BP 

3 

LAST 

802 

25,2416 

03622 

1 



VSQUARE 


8415 

HP 

1 



25,2417 

14330 

1 


STOOL 

AO 

A0/BO5 = Ao/ 250 

0418 

HP 

10 

LAST 

809 

25,2420 

03700 

0 



■DOT 


041T 





25,2421 

71244 

0 


BPL 

DLOAD 


0418 

HP 

1 



25,2422 

52425 

0 



VlLEAD 


0410 

tBP 

2 

LAST 

809 

25,2423 

00330 

1 



Ao ■ 


0420 

ter 

3 

LAST 

809 

25,2424 

03664 

0 


STORE 

Al 

A1/25G 

04202 





25,2425 

51145 

0 

VlIEAD 

DLOW 

BPI. 

IP L/D MEG, Vl=Vl - 1000 

04203 

■BP 

5 

LAST 

808 

25,2426 

03634 

0 



L/D 


04204 

■BP 

1 



25,2427 

52434 

0 



HUNTESTT 


04205 





25,2430 

45345 

1 


DIXMD 

DSU 


04206 

■BP 

5 

LAST 

809 

25,2431 

00326 

0 



VI 




I 

^ ASSE^BLB REVISICK 249 OP AOC PaOCfflAM COLOSSUS By KAgA 2021111-041 
L BEEHray OCNTROL 


0420T RBP 1 


04208 

REE 

6 

LAST 

0421 

0422 

REF 

3 

LAST 

0423 

0424 

REF 

2 

LAST 

0425 

0426 

0427 

REF 

T 

last 

0428 

REF 

8 

LAST 

0429 

REF 

2 

lAST 

0430 

REF 

2 

LAST 


0431 


0432 

PBF 

1 


0433 

REP 

9 

LAST 

0434 

RBP 

2 

LAST 

0435 

REP 

3 

LAST 

0436 

0437 

RBP 

2 

last 

0438 

REP 

4 

LAST 

0439 

0440 

REP 

4 

LAST 

0441 

REP 

2 

LAST 

0442 

0443 

REP 

3 

LAST 

0444 

REP 

5 

LAST 

0445 

0446 

REP 

3 

LAST 

0447 

0448 

REP 

3 

LAST 

0449 

REP 

2 

LAST 

0450 

0451 

RBP 

10 

LAST 

0452 

REP 

3 

LAST 

0453 

0454 

REP 

3 

LAST 

0455 

REP 

1 


A0456 

0457 

REP 

4 

LAST 

0458 

0459 

REP 

1 


0460 

RBP 

1 



0461 



25,2432 

15214 1 

' 809 

25,2433 

00326 0 


25,2434 

41345 0 

809 

25,2435 

00330 1 

809 

25,2436 

15272 1 


25,2437 

40271 1 

810 

25,2440 

00326 0 


25,2441 

00001 0 


25,2442 

56271 0 

810 

25,2443 

00326 0 

809 

25 , 2444 

03725 1 

117 

25,2445 

03704 1 


25,2446 

55221 0 


25 , 2447 

17363 1 

810 

25,2450 

00328 0 

116 

25,2451 

17616 0 

810 

25,2452 

03704 1 


25,2453 

41225 1 

810 

25,2454 

17383 1 

810 

25,2455 

03704 1 


25 , 2456 

77671 1 

810 

25,2457 

00330 1 

116 

25,2460 

03620 0 


25,2461 

43205 1 

799 

25,2462 

03175 1 

810 

25,2463 

03704 1 


25,2464 

44366 1 

810 

25,2465 

17383 1 


25,2466 

77605 1 

810 

25,2467 

03616 0 

276 

25,2470 

03767 1 


25,2471 

41221 0 

610 

25,2472 

00326 0 

810 

25 , 2473 

03725 1 


25 , 2474 

77671 1 

810 

25,2475 

03767 1 


25,2476 

14027 1 


810 25,2477 

03767 

1 

25,2500 

50025 

0 

25,2501 

15204 

0 

25,2502 

53325 

0 

25,2503 

63545 

0 


VOUIT 
STOBB VI 

HUnesTl Dl/MD DMP 



Ao 

2C1HS 

DOV 

SETPD 

Vl 

0 

DDV 

DOV 


Vl 


LEWD 

STORE 

ALP 

BDSU 

BDDV 

BARELYi 

Vl 

STQDL 

FACTI 


ALP 

DSU 

DMP 

BARELYi 

ALP 

DIV 

Ao 

STORE 

PACT2 

DMP 

DAD 


07 


ALP 

SORT 

BDSU 

BARELYi 

DMP 

PACTl 

STOffi 

VL 

BDSU 

DMP 


Vl 

LEWD 

DOV 

VL 

STQDL 

GAM4AL1 


VL 

DSU 

BMC 

VLMIN 

PRBPINAL 

DLOAD 

DSO 


!• 

20’35 OCT. 28,1968 PANDORA .080 PACE 810 
VSBBmS PACE NO. 13 B7 S3 

^ = 2 Cl HS Ao/LEdD VI VI 


FACTI = VI / ( 1 - ALP) 

FACTI / 2VS 

FACT2 = ALPfALP - 1) / Ao 

FACT2 ( 2SO) 

Or /805 = 07 / 250 

VL=PACn (l-SQHTfOT FAC)T2 tALP) ) 

VL / 2 VS 

(WWALl = LEWD (Vl-VL)A^L 

CAi'MALl USED IN UPCCNTEIOL 
OWMLl = POL 220. 

IF VL-VIMIN NEC, GO TO PHEPINAL 
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20*35 OCT. 28,1968 PANDORA .080 PAGE 811 



L 

i«micr 

CONTROL 




•402 

IBP 

5 

LAST 

610 

25.2504 

03767 

1 

•483 

BSP 

2 

LAST 

117 

25.2505 

17666 

1 

•484 

IBP 

1 



25.2508 

15330 

0 

•485 





25.2507 

50025 

0 

•488 

BSP 

8 

LAST 

811 

25.2510 

03767 

1 

848T 

BBP 

1 



25.2511 

53220 

1 

•488 

BEP 

2 

LAST 

117 

25.2512 

17662 

0 

•489 

BHP 

2 

LAST 

811 

25.2513 

15330 

0 

•4T0 

BEP 

2 

LAST 

117 

25.2514 

, 03672 

1 

•4T1 





25,2515 

50025 

0 

84T2 

BPS' 

11 

LAST 

810 

25,2518 

00326 

0 

04T3 

BEP 

1 



25,2517 

52525 

1 

•4T4 





25,2520 

77621 

1 

•4T5 

BEP 

3 

LAST 

811 

25,2521 

03662 

0 

•4T8 

BEP 

4 

LAST 

811 

25,2522 

17662 

0 

•4TT 

BEP 

12- 

LAST 

811 

25,2523 

00326 

0 

04Ta 

IBP 

3 

LAST 

811 

25,2524 

03672 

1 

04T9 





25,2525 

45145 

0 

•480 

BSP 

4 

LAST 

811 

25,2526 

03672 

1 

•481 

BSP 

1 



25,2527 

52776 

0 

0482 

BEP 

2 

LAST 

116 

25,2530 

03656 

1 

8483 





25,2531 

56261 

1 

0484 





25,2532 

20607 

1 

0485 

BEP 

4 

LAST 

810 

25,2333 

03175 

1 

0488 





25,2534 

77625 

0 

•48T 

BEE 

1 



25,2535 

15250 

1 

0488 

BEP 

2 

LAST 

117 

25,2538 

03660 

1 

0489 





25,2537 

41215 

1 

0490 

BEP 

1 



25,2540 

17357 

0 

0491 

BEP 

1 



25,2541 

15254 

0 

0492 





25,2542 

41205 

0 

0493. 

BEP 

5 

LAST 

811 

25,2543 

03662 

0 

•494 

BEP 

6 

LAST 

811 

25,2544 

0366 2 

0 

0495 





25,2545 

56271 

0 

0498 

BEP 

3 

LAST 

811 

25,2548 

03656 

1 

049T 

BEP 

3 

LAST 

611 

25,2547 

03666 

1 

0498 





25,2550 

50021 

1 

0499 

REP 

2 

LAST 

810 

25,2551 

00027 

1 

0500 

BEP 

1 



25,2552 

5274 3 

0 

0501 

BEP 

1 



25,2553 

03771 

0 

0502 





25.2554 

TT625 

0 

0503 

BEP 

3 

LAST 

811 

25.2555 

00027 

1 

0504 





25.2556 

43205 

1 


USR.S PACB NO. 14 


Br S3 


lOL 

STOOL vastas 

■RLVB 
DSU *90 
«IL 

nccMsio 

STOOL DKIL 

■hlvb 
STORB lag 

DSU *«■> 
wi 

OnOHOCK 

BDSU 

BOL 

STOOL OML 

m 

STORE laa 

GETOHOCK DLOAD CMUL 

isg 

nsoocror 

STOie OfRXK 

sa nK' 
s 
or 

DSU 

cnmc 

STORE flSiaEKDV 


DAD 


DMP 


DOV 


BDSU *»» 

SOtVALl 

HUNTESTS STORE GRit-WL 


ww 

l/flffilH 

wr 

ttOL 

ainL 

iwg^y 

nmaoc 


VHABS / 4 VS VS 

IP VSAT-VL NEO, go TO CCNSID 


ffiT MODe=Hl»nEST, CCNTINue IN CCNSTD 
DVL / 2VS 


VSl = VSAT 

IP Vl (HBATEH THAN VSAT , GO ON 

DVL = DVL - (VSAT-VD = VI - VL 

VSl = Vl, IN THIS CASE 

DH0CK=<(1-VS1 /PACti) so -ALP)/PACT 2 
VSl /2 VS 
DO CALC DHOCK 
chock /250 

CHCKK 

= .25/16 = <-6> 

GAM4AL= GAM4AL1-CH1 DVI- SOCltAHOOK DvtD 


DSU 

DMP 


(S».'MALl=GA,VMi\I,i +019 (GAMvWl,_GAMylAl-l 1 


CA*«XLl 





IP AssaeLB BEVISICW 249 OP AGO pbcXSMM COUBSUS BY KASA 2021111-041 
L tBBTTBX CONIHOL 


0505 

0506 
050T 
0508 


PEP 1 


25,2557 15330 0 

4 LAST 811 25,2560 00027 1 

5 LAST 812 . 25,2561 14027 1 

2 LAST 811 25,2562 03771 0 


019 

OM^lLl 
STOOL (MM«Ll 
CWM44L 


20’35 OCT. 28,1968 PANDORA .080 PAOB 812 
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20 ’35 OCT. 28,1968 PANDORA .080 PAGE 813 



L 

BHanRY 

CONTROL 


P0509 

♦START 

RANOE PREDICTION 

A0510 






0511 





25,2563 

0512 





25,2564 

0513 

RES' 

3 

LAST 

811 

25,2565 

0514 

HEP 

2 

LAST 

IIT 

25,2566 

0515 

HEP 

4 

LAST 

811 

25,2567 

0516 





25,2570 

051T 

REP 

4 

LAST 

813 

25,2571 

0518 

REP 

5 

LAST 

813 

25,2572 

0519 





25,2573 

0520 

REP 

3 

LAST 

813 

25,2574 

0521 

REP 

4 

LAST 

813 

25,2575 

0522 





25,2576 

0523 

HEP 

1 



25,2577 

0524 





25,2600 

0525 

REP 

6 

LAST 

813 

25,2601 

0526 





25,2602 

052T 

REP 

5 

LAST 

813 

25,2603 

0528 

REP 

3 

LAST 

812 

25,2604 

0529 





25,2605 

0530 





25,2606 

0531 

REP 

1 



25,2607 

A0532 






0533 

REP 

T 

LAST 

811 

25,2610 

0534 





25,2611 

0535 

REP 

1 



25,2612 

0536 

REP 

3 

LAST 

799 

25,2613 

0S3T 

REP 

1 



25,2614 

0538 





25,2615 

0539 

REP 

13 

LAST 

811 

25,2616 

A0S40 






A0541 






0542 





25,2617 

0543 

REP 

5 

LAST 

811 

25,2620 

0544 

REP 

T 

LAST 

813 

25,2621 

0545 





25,2622 

0546 

REP 

5 

LAST 

810 

25,26 23 

054T 

REP 

1 



25,2624 

0548 





25,2625 

0549 

REP 

1 



25,2626 

OSSO 

REP 

6 

LAST 

812 

25,2627 

0551 

REP 

1 



25,2630 


60516 

0 rangbr 

DSO 

SR2 

77621 

1 

HDSU 


15330 

0 


HALVE 

17670 

0 

STODL 

COSO/2 

03666 

1 


VBARS 

41225 

1 

DSU 

DMP 

15330 

0 


halve 

03666 

1 


vbars 

41205 

0 

DMP 

DMP 

03670 

0 


C030/2 

03670 

0 


C090/2 

43312 

0 

SL2 

DAD 

17357 

0 


Cl/16 

65 366 

1 

SORT 

POOL 

03666 

1 


vbars 

41205 

0 

DMP 

DMP 

03670 

0 


COSO/2 

03771 

0 


QAMAAL 

67471 

1 

DIV 

ASIN 

41552 

0 

a,i 

PUSH 

17731 

1 

STODL 

ASKEP 


TOR IM 


03767 

1 


VL 

43205 

1 

DMP 

DAD 

15170 

0 


03 

03712 

0 


02 

03732 

1 

STORE 

ASPl 

63525 

0 

FDDL 

DSO 

00326 

0 


Vl 


56205 

0 

DMP 

DDy 

03175 

1 


07* 

03666 

1 


VBARS 

45071 

0 

DDV 

CALL 

00330 

1 


Ao 

46155 

1 


LOO 

56205 

0 

DMP 

DOV 

15206 

1 


Cl2 

00027 

1 


QAM4AL1 

03733 

0 

STORE 

ASPUP 


USBRoS PAGE NO. 10 BT S3 


C(MPAC) = QVWL 

COSO = 1-QH»«L SQ/2, TRLWCAIED SERIES 


ErSQRTI I+VBARS 


Cl/16 = 1/16 

E/4 into PDL 


ASKEP/2 = ABCSINCvRARS COSO SINO/E) 

ASKBP to PDL 0. 

BALLISTIC RANGE ASGEP/bPI 

STORE RANC® CCMPCNFNTS CVERLAPPINO (SP) 
ASPl = 02 + 03 VL 

PINAL PHASE RANGE ASPl/2 PI 
ASPl TO PDL 2 . 

2 

ASPUPr -Ci2 LOG(Vl Ot/VBARS Ao)/GAM4At,i 


RETURN WITH -LOG IN MPAC 


UP PHASE EWNGE ASPUP / 2 PI 
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L RBamiY CONIBOL 


0502 

0553 

A0554 

0555 

0550 

0557 

0558 

0559 

0560 

0561 


REP 11 LAST 809 

BBP 10 LAST 809 
REP 0 LAST 813 


REP 

REP 


HEP 


9 LAST 809 
1 


0502 

0503 

0504 REP 

0505 R0» 
0500 REP 


LAST 813 


0587 HEP 2 LAST 813 

0588 REP 1 


0589 

0570 

A0571 

A0572 

0573 

A0574 

A0575 

0576 

0577 

0578 

0579 
A0580 


HEP 2 LAST 814 


REP 

REP 

REP 


REP 


0581 

0582 

0583 

0584 REP 

0585 REP 

0586 REP 

0587 

0588 REP 

0589 REP 

0590 
A0591 

0592 REP 

0593 HEP 

0594 

0595 REP 
0590 REP 


LAST 

LAST 

LAST 


805 

758 

116 


LAST 814 
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LAST 

LAST 


LAST 

LAST 


116 

814 


116 

814 


25,2631 

41325 0 

POOL 

DMP 

ASPUP TO POL 4. 

25,2632 

15250 1 


KC3 

KC3 =-4 V8 VS/ 2 PI 80S RE 





ASPDiN = KC3 root V / Ao 

25,2633 

03700 0 


ROOT 


25,2834 

56205 0 

DMP 

DDV 


25,2635 

03674 1 


V 


25,2636 

00330 1 


Ao 


25,2637 

41471 0 

DDV 

PUW 

ASPOWN to POL 6. 

25,2640 

03624 1 


LAO 


25,2641 

17734 1 

STOOL 

ASPOWN 

RAJTCE TO POLL CUT ASPDWN /2 

25,2842 

15174 1 


QB 


25,2643 

41225 1 

DSU 

DMP 

ASP3 = CI5(Q8-CA»«L) 

25,2644 

0377 1 0 


QAM4AL 


25,2645 

15172 1 


05 


25,2646 

277 35 0 

SKVL 

ASP3 

QAM4A CORRECTICN ASP3/2PI 

25,2647 

03731 1 


ASKEP 

get HI-WD AND 

25,2650 

17126 1 

STODL 

ASPSITM) 

SAVE HI-WORD OP ASPcS POR TM. 

25,2651 

037 35 0 


ASP3 


25,2652 

43215 0 

DAO 

DAD 






ASP1>»N PRCM POL 6. 





ASPUP PRIM POL 4 . 

25,2653 

43215 0 

DAO 

CAD 






ASPl PRCM POL 2. 





ASKEP PRCM POL 0. 

25,2654 

41025 0 

DSU 

B0V8 

CLEAR a^IND. 

25 , 2655 

03702 1 


THETAH 


25,2656 

57 343 1 


TCDANZIO 


25,2657 

03810 0 

STORE 

DIPP 

DIPP = (ASP-THETAH) /2 PI 




ASPrASKEP+ASPl+ASPUP+ASP3+ASPDWN = TOML RANI®: 

25,2660 

45246 0 

ABS 

DSU 

IP ABSCIHETAH-ASP) -2SN;'1 NEC, GO TO 

25,2661 

15222 1 


25NM 


25,2662 

43040 1 

BM7 

BOf 


25,2663 

53025 0 


OOTCUPSY 


25,2664 

03311 1 


HIND 


25,2665 

52671 0 


QETDLEWD 


25,2666 

51145 0 

DLIAD 

BPL 


25,2667 

03610 0 


DIFF 


25,2670 

53213 1 


DCCNSID 

BYB7TUAU.Y sets MODE = HIJNTEST. 

25,2871 

41345 0 

GBIOLEWD DLOAD 

DMP 





25.2672 

25.2673 

25.2674 

25.2675 

25.2676 


03642 

03610 

45325 

03612 

03610 


POOL 


DLEWD 

DIPF 

DSU 

DIFTOX) 

DIFP 


DI.0irt> = DLEWD (DIPP/(DIFPOLD-DIFP)) 
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•59T 





25,26TT 

77685 

1 

EDDY 



BS9T1 





25,2700 

77626 

0 

mOSTORg S»DR 



•S9S 


3 

LAST 

814 

25,2701 

74135 

0 

STOHB 

DLE«D 


0599 





25,2702 

50015 

0 

DAO 


IP IBWD+DLEWD NEO,DLEwD=.LEggD /2 

oeoa 

BP 

4 

WST 

810 

25,2703 

03725 

1 


LEB 


96002 

BP 

1 



25,2704 

52737 

0 


LEODPTO 


06004 





25,2705 

77600 

1 

boy 



0601 

BP 

1 



25,2706 

52733 

1 


LEWDOYPL 


0802 

BP 

5 

LAST 

615 

25,2707 

03725 

1 

STORE 

LEWD 


0603 





25,2710 

77776 

1 

sidethak Exit 



0604 

BP 

2 

LAST 

T58 

25,2711 

3 4753 

1 

CA 

EBEjrnOf 


0605 


34 

LAST 

T58 

25,2712 

54 003 

0 

ts 

BANK 


06051 


10 

LAST 

381 

25,2713 

3 4763 

1 

CA 

PHIOie 

DROP GRP 5 RESTART PRIO TO 1 LESS THAN 

00052 

BP 

1 



25,2714 

55«064 

0 

ts 

phsprdts 

fflP 4. 

0606 

mv' 

06 

LAST 

801 

25,2715 

0 5301 

0 

TC 

IWASCHNO 


060T 





25,2716 

00474 

0 

OCT 

00474 

■restart GRP 4 at PRE-HUNT. 

AOOOTl 










FORCE restart TO PICK UP W CSBP 4 * 

A060T2 










USE PRIO 17 FOR GRP 4 ! t SEHYICER PRIO) 

0606 

BP 

11 

LAST 

815 

25,2717 

3 4753 

1 

CA 

PRI016 

CCNTINUE GRP 5 at LOWER PRIO THAN EITHER 

A06081 










GRP 4 OR SEIVICER. 

0609 


0 

LAST 

648 

25,2720 

0 5103 

0 

7C 

PRIOQINO 


0610 

sey 

1 



25,2721 

3 3024 

1 

CAP 

ADENDEXT 

SIDETHAQC next PASS UNTIL THIS CNE DONE. 

0611 

■BP 

9 

LAST 

809 

25,2722 

55«645 

0 

TS 

OOTOADOR 

ONLY AFIER restart, IS LEFT AFTER DETOUR. 

0612 

wer- 

206 

LAST 

801 

25,2723 

0 6006 

1 

TC 

INTPHET 


0613 





25,2724 

43145 

0 

DOMD 

SET 


0614 

■HP 

6 

LAST 

814 

25,2725 

03810 

0 


DIFF 


0615 

BP 

2 

LAST 

814 

25,2728 

03071 

1 


HIND 


0016 

BP 

3 

LAST 

814 

25,2727 

17612 

X 

STCDL 

DIPFOLD 

DIPPCLD / 2 PI 

061T 

mr 

' 2 

LAST 

T99 

25,2730 

15176 

0 


Q7P 


0621 

BP 

■ 

LAST 

813 

25,2731 

37175 

0 

SlCALL 07 

07 / 805 FPSS 

0022 

■BP 

2 

LAST 

809 

25,27 32 

52365 

0 


HUNTEST 

(GO TO ) 

0023 





25,2733 

77745 

1 

LEWDCVFL DLOXD 



0624 

■BP 

2 

LAST 

T99 

25,2734 

17363 

1 


NEARCNE 


0625 

■BP 

■ 

LAST 

815 

25,2735 

37725 

0 

STCALL IBKD 


0628 

BP 

2 

LAST 

814 

25,2738 

53213 

1 


DCCNSTD 

(GO TO) ALSO WIU, set MODE = HUNTEST 

00262 





25,2737 

70545 

1 

1£WDP1R DLOXD 

SRl 


06264 

BP 

T 

LAST 

815 

25,2740 

03725 

1 


LBWD 


06266 





ZS.2741 

52076 

1 

DCCMP 

GOTO 


06268 

■BP 

1 



25,2742 

52700 

1 


LWDSTORE 




I 
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naafncf oamtoL 


R0#2T NEOAMA Is PART OP HUNTEST 


0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 
0636 
0839 

0640 

0641 

0642 

0643 
A0644 
A064S 

0646 

0647 
0646 


REP 


8 LAST 813 
1 


HEP 


8 lAST 815 
2 LAST 818 


HEP 

HEP 


3 lAST 811 
1 


REP 


7 lAST 811 
2 LAST 811 


REP 

IffiP 


4 LAST 811 
9 LAST 816 


25.2743 

25.2744 

25.2745 

25.2746 

25.2747 

25.2750 

25.2751 

25.2752 

25.2753 

25.2754 

25.2755 
25,2758 
25,2757 
25,2780 

25.2761 

25.2762 


41205 0 
03767 1 
15146 0 
41325 0 
03725 1 
15146 0 
43325 1 
03660 1 
15252 
41205 
03662 
15254 
56271 
03656 
03767 
55221 


NBGWMA DMP 


POOL 


POOL 


CMP 


DOV 


BDSU 


CMP 

VL 

1/3M> 

CMP 

LEWD 

1/3I» 

CAD 

AHOCNPV 

1/24TH 

CMP 

DVL 

CHl 

cov 

CHOQC 

VL 

BODV 


A0650 


0652 

0653 


0655 

0656 

0657 


0658 

0659 

0660 
0661 
0662 

0663 

0664 

0665 






25,2763 

77615 0 

DAD 


REP 

10 

LAST 

816 

25,2764 

03767 1 


VL 

HEP 

11 

last 

816 

25,2765 

37767 0 

3TCA1L VI, 

REP 

2 

LAST 

811 

25,2766 

52776 0 


dhockyoi 

REP 

T 

LAST 

SIS 

25,2767 

17175 1 

STODL 

Ol 

REP 

12 

LAST 

816 

25 , 2770 

03787 1 


VL 

REP 




25,2771 

77716 1 

DSO 


8 

LAST 

813 

25,2772 

17666 1 

STOOL 

vhars 

REP 

3 

LAST 

803 

25,2773 

15332 1 


3ZEROS 

REP 




25,2774 

77650 1 

GOTO 


1 



25,2775 

5255 3 0 


HurnESTs 



LAST 


25,2776 

56342 1 

DHOCKTOI SRl 

DDV 

REP 

4 

810 

25,2777 

03616 0 


PACn 





25,3000 

72421 0 

BDSU 

SLi 

REP 

5 

LAST 

813 

25,3001 

15330 0 


HALVE 





25,3002 

45316 1 

DSQ 

DSU 

REP 

0 

LAST 

810 

25,3003 

03704 1 


ALP 





25,3004 

43471 1 

DDV 

RVO • 

REP 

3 

LAST 

810 

25,3005 

03620 0 


PACr2 


!• 
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&nBR WITH aAi44AL IN MPAC 


PUSH QAM 4 AL VL/3 


PUSH L0»D/3 


DEL VL =CGW»ML VL/3) /(LEWO/3-IVL 
<2/3 ♦ AHOCKDVXCMi OS/CHOCK VL)) 


LEWO/3 
QAMAAL VL /3 


VL/2 vs 
GO CALC 07 

Cnr((l-VL/PACn)SQ - ALP)/FACT2 
07/250 


VSARS / 4 vs vs 


set QA.'WAL = 0 


subroutine to calc chock or 07) 
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L 

neXMTRY CONTROL 






USB>S PAOE NO. 20 E7 83 

Posasi 











A068S 









COB TO PRE-HUNT «HEN IffiSTARP OCCURS AFIER 

A066T 









HUHTBST 

IS siik-tracked at SIDETRAK. 

A0868 









PICiC UP 

IN OROUP 4. 

0869 

BEP 

207 

LAST 

815 

25,3006 

0 6006 

1 

PRE-HUNT TC 

WTPRET 


08T0 





25,3007 

45014 

0 

CLEAR 

CALL 


08T1 

RBP 

3 

LAST 

815 

25,3010 

03271 

0 


HDJD 

HIND 99 D BIT 6 PLAO 8 

e8T2 

BBP 

2 

LAST 

808 

25,3011 

53014 

1 


PORatJNT 

BE-INITLALI 2 E HUNTEST AFTER RE-START 

0873 





25,3012 

77650 

1 

OOTO 



0875 

REP 

3 

LAST 

815 

25,3013 

52365 

0 


HUNTBST 


0878 





25,3014 

77745 

1 

PORatKT DLCAD 


INITIALIZE HUNIEST. 

0877 

REP 

4 

LAST 

816 

25 , 3015 

15332 

1 


3ZEROS 


0878 

REP 

4 

LAST 

815 

25,3016 

17612 

1 

STODL 

DIFFOLD 


0879 

REP 

1 



25,3017 

15156 

1 


DL£««Do 


0880 

REP 

4 

LAST 

815 

25,3020 

17642 

1 

STODL 

DLEWD 


0881 

REP 

1 



25,3021 

15150 

1 


LEWDi 


0882 

REP 

9 

LAST 

816 

25,3022 

03725 

1 

STORE 

LEWD 


0883 





25,3023 

77616 

0 

RYO 



A0884 











0885 

RBP 

2 

LAST 

748 

25,3024 

53570 

0 

ADeNDEjCr CADR 

&IDGYIT 
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* SWRT UP CCNTOOL ... 


USBR.S PAGE NO. 21 


BT S3 


A068T 

0668 

0689 

A069a 

A0691 

A0692 

A0693 

0694 


06943 

06944 


06946 

0695 

0696 
069T 

0698 

0699 
OTOO 
OTOl 
0T02 
0T03 

0704 

0705 

0708 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 
A0720 

0721 

0722 

0723 


REP 1 


25.3025 

25.3026 


77634 0 OOrOUPSY RIB 
54440 0 


P65 






25,3027 

45345 1 

UPCCKIEL DLOAD 

DSU 

REP 

12 

LAST 

809 

25,3030 

03640 0 



D 

REP 

1 



25,3031 

15220 0 



C21 





25,3032 

43040 1 



SET 





25,3033 

53035 1 



♦2 

REP 

1 



25,3034 

03070 0 



noswitcm 

REP 




25,3035 

45345 1 


DLQAD 

DSU 

11 

LAST 

814 

25,3036 

03874 1 



V 

REP 

14 

LAST 

813 

25,3037 

00328 0 



Vl 

REP 




25,3040 

71244 0 


BPL 

DLQAD 

1 



25,3041 

53252 1 



DOWNCWTL 

REP 

13 

LAST 

818 

25,3042 

03640 0 



D 





25,3043 

5 0 0 25 0 


DSU 

am 

REP 

8 

LAST 

816 

25,3044 

03175 1 



07 

REP 

1 



25,3045 

53305 1 



KEP 





25,3046 

51145 0 


DLQAD 

BPL 

REP 

12 

WST 

814 

25,3047 

03700 0 



BOOT 

REP 

1 



25,3050 

53057 0 



CCNTl 





25,3051 

45345 1 

VI,TEST 

DLOAO 

DSU 

REP 

12 

LAST 

818 

25,3052 

03874 1 



V 

REP 

13 

LAST 

816 

25,3053 

03787 1 



VL 





25,3054 

50025 0 


DSU 

EMI 

REP 

1 



25,3055 

15164 0 



Ci8 

REP 

2 

LAST 

810 

25,3056 

53325 0 



PREP INAL 





25,3057 

77745 1 

CCNTT 

DLQAD 


REP 

14 

LAST 

818 

25,3060 

03840 0 



D 





25,3061 

50025 0 


DSU 

R-N 

REP 

7 

LAST 

814 

25,3062 

00330 1 



AO 

IffiP 

1 



25,3063 

53067 0 



C(MT3 





25,3064 

52145 0 


DLQAD 

GOTO 

REP 

10 

LAST 

814 

25,3085 

03824 1 



LAD 

REP 

1 



25,3066 

53517 1 



STOIdy/D 





25,3067 

41345 0 

C(HT3 

DLQAD 

DMP 

REF 

15 

LAST 

818 

25,3070 

03640 0 



D 

REP 

4 

LAST 

816 

25,3071 

03620 0 



factz 


= 65 

PM) CP HUNTBST 

HIKIEST USE OP (SIP4 IS DISABLED BY P65 

USE FOB DISPLAY. 

ffiT MODE = UPCCNTBL. 

return from P65 DIRECTLY TO UPCCKIHL 

VIA THE OOTCHDOR AT REFAzElO. 

IP D-140 POS, NOSWITCM =1 
(SUPPRESS lateral atITCH) 


IP V-Vl POS, GO TO DOWN CCHTBOL. 

IP D- Or NBQ, GO TO KEP 
IP ROOT NEG, DO VLTEST 

IP V-VI,-Ci8 NBG,EGSWrl,MCDe=PREDICT3 

IP D-Ao POS, L/D = lAD, GO TO LIMITl,/D 




VHEK=FACTT(l-SaHT(FACT2 D + A1,P)) 
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L 

teama 

OCKHW, 
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•T24 





25.3072 

75415 0 

CAD 

SORT 


0T2S 

tSF 

7 

LAST 

816 

25.3073 

03T04 1 


ALP 


0T20 





25.3074 

41221 0 

BDSU 

DMP 


0T2T 

REP 

4 

LAST 

610 

25.3075 

17363 1 


BARELYi 


eT28 

HEP 

5 

LAST 

816 

25.3078 

03616 0 


PACT! 


0T29 

RHP 

1 



25.3077 

01160 1 

STORE 

VHEP 

VBEP / 2VS 

0T30 





25.3100 

41221 0 

BDSU 

DMP 

roOTREP = LERD(VI-VHEF) 

oral 

REP 

15 

LAST 

818 

25.3101 

00326 0 


VI 


0T32 

HEP 

10 

LAST 

817 

25.3102 

03725 1 


lerd 


0T33 

HEP 

2 

LAST 

77 

25.3103 

15156 1 

STCDL 

HDOTHEP 

HXJTREP / 2VS 

0734 

REP 

5 

LAST 

811 

25,3104 

03672 1 


VSl 


0T3S 





25.3105 

50025 0 

DSU 

BW 

IP VSAT-VHEP NBO, go to CCNTINU2 

0T3S 

REP 

2 

LAST 

619 

25,3106 

01160 1 


VREP • 


0T3T 

REP 

1 



25,3107 

53126 1 


C(JJTINU2 


0T38 





25.3110 

41406 0 

PUSH 

PU91 

VSl -VHEP TO PDL TWICE 

0T39 





25,3111 

S620S 0 

DMP 

DDY 

HEHOCK=CHi(i.Oy AHOCKDY/DVL) Dy Dy 

0T40 

REP 

4 

LAST 

816 

25,3112 

03660 1 


ahockdv 

/DHOCK VHEP 

0T41 

REP 

8 

LAST 

816 

25,3113 

03662 0 


DVL 

RHEHE DV = (VSl-VHEP) 

0T42 





25.3114 

41215 1 

DAD 

DMP 


0T43 

HEP 

2 

LAST 

811 

25,3115 

17357 0 


1/161H 


0T44 

REP 

3 

LAST 

816 

25,3116 

15254 0 


Wl 


0T4S 





25,3117 

41205 0 

DMP 

DMP 


A074S 









VSl-VHEP PRCM POL TWICE. 

0747 





25,3120 

77671 1 

DOV 



0748 

REP 

5 

LAST 

816 

25.3121 

03656 1 


DHOCK 


0749 





25.3122 

44271 0 

DOvr 

BDSU 


0750 

REP 

3 

LAST 

819 

25,3123 

01160 1 


VHEP 


0751 

RET 

3 

LAST 

819 

25,3124 

01156 1 


FOOTBEP 

C(HD0TBEP)= LEWD (Vl-VHEP) 

0752 

REP 

4 

LAST 

819 

25,3125 

01156 1 

STORE 

RDOTREP 

HDOTHEP = HDOTHEP - RDHOCK 

0753 





25.3126 

45345 1 

corriNua dlcad 

DSU 


0754 

REP 

16 

LAST 

818 

25,3127 

03640 0 


D 


0755 

REP 

1 



25,3130 

15312 0 


otmin 


0750 





25,3131 

50004 0 

BO/B 

HW 


0757 

HEP 

4 

LAST 

814 

25,3132 

57 343 1 


ICDANZIC 

Clear oyfl ind, ip oj. 

0758 

REP 

1 



25,3133 

53144 0 


UPCNTRL3 


0759 





25,3134 

45345 1 

DLOTO 

DSU 


0760 

REP 

4 

LAST 

809 

25,3135 

03664 0 


Al 


0761 

REP 

9 

LAST 

818 

25,3136 

03175 1 


07 


0762 





25,3137 

45 325 1 

PDDL 

DSU 


0783 

REP 

17 

LAST 

619 

25,3140 

03640 0 


D 


0764 

REP 

10 

LAST 

819 

25,3141 

031T5 1 


Or 


0765 





25,3142 

45471 1 

DtV 

StADR 


0766 

REP 

3 

LAST 

799 

25.3143 

74163 0 

STORE 

FACTOR 

factor / 25G 



L 
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POTBT acippen 

AOTOe 

A0T89 


OTTO 


07T1 

BBP 

13 

LAST 

818 

0TT2 





0TT3 

REP 

5 

LAST 

819 

0TT4 

0TT5 

KBP 

4 

LAST 

619 

OTTO 

BBP 

1 



om 

HEP 

13 

LAST 

818 

OTTB 





07T9 

IHP 

4 

LAST 

819 

0780 

REP 

S 

LAST 

820 

0781 





0782 

0783 

BBP 

1 



0784 

0785 

RSP 

1 



0788 

BBP 

1 



0787 

0788 

BBP 

1 



0789 

BBP 

1 



0790 

BBP 

2 

LAST 

820 

0791 





0792 

A0793 





0794 





0795 

RBP 

11 

LAST 

819 

0796 





0797 

BB' 

2 

LAST 

820 

0798 

A0799 

Aoaoo 

BBP 

6 

LAST 

809 

0801 

RBP 

18 

LAST 

819 

0802 

0803 

RBP 

1 



0804 

BBP 

4 

LAST 

808 

0805 

0806 
A0807 

BEP 

1 



0808 





0809 

BBP 

5 

LAST 

820 

0810 

BEP 

5 

LAST 

817 

0811 

BB' 

T 

LAST 

820 

0812 

BEP 

6 

LAST 

820 


USBRatS PACE NO. 23 


BT 83 


Da,TA L/D=-{(HDOT-HDOIHBP)Pi KBi*V-VHBP)Pi KB2 

wbbb Pi = pactob 


25,3144 

77745 1 

UPCNTRL3 DLCMD 


25,3145 

03700 0 



WOT 

25,3146 

41225 1 


DSU 

DMP 

25,3147 

01156 1 



rooiRBp 

25,3150 

03614 1 



PA(?T0R 

25,3151 

43271 1 


DDY 

DAD 

25,3152 

15210 0 



1/Kfll 

25,3153 

03674 1 



V 

25,3154 

41225 1 


DSU 

DMP 

25,3155 

01160 1 



VRBP 

25,3156 

03614 1 



factor 

25,3157 

41471 0 


DCV 

puai 

25,3160 

15212 1 



-1ACB2 

25,3161 

51400 1 


B<V 

ABS 

25,3162 

53464 1 



OCMAXL/D 

25,3163 

5 0 0 25 0 


DSU 

BM4 

25,3164 

15274 1 



PTl/16 

25,3165 

53172 0 



NBxn 

25,3166 

43205 1 


DMP 

DAD 

25,3167 

15152 0 



POINT! 

25,3170 

15274 1 



PTl/16 

25,3171 

41565 1 


SICN 

PUSH 

25,3172 

42545 0 

NEjcn 

DLCAO 

su 

25,3173 

77615 0 


DAD 


25,3174 

03725 1 



LEWD 

25,3175 

41400 0 

NBGTBSTS 

BCV 

PUSH 

25,3176 

53464 1 



(XMAXL/D 

25,3177 

17634 0 


STOOL 

L/D 


25,3200 

03640 0 


0 

25,3201 

50025 0 

DSU 

BW 

25,3202 

1S216 0 


C20 

25,320 3 

53520 0 


LIMITL/D 

25,3204 

71214 0 

CLEAR. 

DLOAD 

25,3205 

03273 1 


lArsif 

25,3206 

71244 0 

BPL 

DLCttD 

25,3207 

53520 0 


LIMITIl/D 

25,3210 

15332 1 


3ZBROS 

25,3211 

37634 1 

STCAIJ, 

L/D 

25,3212 

53520 0 


LIMITL/D 


L/D = LEWD 

- 1 C hDOT-BDOTHEP) Pi /KBi ♦V-VBBP)Pi / kH2 


DELTA L/D INTO POL 

nonlinear circuit for reducing hioi gain 

Attach sirai op puai to mpac then push 

DELTA L/D PRCM POL. 

L/D TO PDl, FOR USE IN NEGIESTS. 

IP D-C20 POS, lATSW =0 
and ip L/D NEG, L/D = 0. 

=ZlD. ROIL, tVER TOP, RECMBDt.ESS. 

L/D PRCM POL. 


(GO TO) 
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L BEEHIKY OCtnROL 


0813 





25,3213 

77745 

1 

DCa4STO 

DLQAD 


0814 

HEP 

T 

lAST 

815 

25,3214 

03610 

0 



DIPP 

loeis 











081T 

HEP 

5 

LAST 

BIT 

25,3215 

17812 

1 



DIFPOLD 

0816 

REP 

3 

LAST 

815 

■ 25,3216 

15176 

0 



OTP 

0819 

HEP 

11 

LAST 

819 

25,3217 

03175 

1 


STORB 

07 

0620 





25,3220 

47131 

1 

ffiCCNS® SSP 

RlE 

0621 

hep 

10 

LAST 

815 

25,3221 

03646 

0 



QOTQADOR 

0622 

REP 

4 

lAST 

817 

25,3222 

52365 

0 



HLNTEST 

0823 

REP 

1 



25,3223 

54505 

0 



KILLaRP4 

0824 





25,3224 

77604 

0 

CCNSTD 

BO/B 


0825 

REP 

5 

LAST 

819 

25,3225 

57343 

1 



TCDANZIO 

0826 





25,3226 

41345 

0 


DLOW 

DMP 

0827 

REP 

ft 

LAST 

80T 

25,3227 

03654 

0 



LEO 

0828 

HEP 

3 

LAST 

808 

25,3230 

03706 

0 



C/Do 

0829 





25,3231 

41325 

0 


POOL 

DMP 

0830 

REP 

1 



25,3232 

15262 

0 



'2HS 

0831 

HH» 

3 

LAST 

807 

25,3233 

03710 

1 



Do 

0832 





25,3234 

43271 

1 


DOV 

DAD 

0833 

REP 

14 

LAST 

820 

25,3235 

03674 

1 



V 

0834 

REP 

14 

LAST 

820 

25,3236 

03700 

0 



ROOT 

0835 





25,3237 

43205 

1 


DMP 

DAD 

0836 

HEP 

1 



25,3240 

15226 

0 



K2D 

0837 





25,3241 

77725 

1 


FCOL 


0838 

REP 

4 

LAST 

621 

25,3242 

03710 

1 



Do 

0839 





25,3243 

77621 

1 

CCNSlDl 

BDSU 


0840 

REP 

19 

LAST 

820 

25,3244 

03640 

0 



D 

0841 





25,3245 

43205 

1 


DMP 

DAD 

0842 

REP 

1 



25,3246 

15224 

1 



KlD 

0843 





25,3247 

52061 

1 


SL 

GOTO 

0844 





25,3250 

20211 

1 



8D 

0845 

REP 

1 



25,3251 

53175 

1 



NEGTESTS 

0846 





25,3252 

77604 

0 

DOWNCNTL BOVB 


0847 

REP 

6 

lAST 

821 

25,3253 

57343 

1 



TCDANZIO 

0848 





25,3254 

54345 

1 


DLOXD 

SR 

0849 

REP 

11 

LAST 

818 

25 , 3255 

03624 

1 



LAD 

0850 





25,3258 

20611 

0 



8D 

0851 





25,3257 

45325 

1 


POOL 

DSU 

0852 

REP 

15 

LAST 

621 

25,3260 

03674 

1 



V 

0853 

HEP 

16 

LAST 

819 

25,3281 

00326 

0 



VI 

0854 





25,3262 

43205 

1 


DMP 

DAD 

0855 

REP 

12 

LAST 

621 

25,3263 

03624 

1 



LAD 



TVfO BANOER BriHIBS TO CCNSTD HERB 

SAVE OLD VALUE OP DIFE FOR NEXT PASS. 
DIPFOLD / 2 PI 


A HLNTEST ©ITBY INTO CCNSID. 

reset mode to mjNIEST 

deactivate (»P4 PRCM HUNTEST. 


CLEAR OVF IND IP CN. 


C/Do = -4 /Do B-8 
LEO C/DO into POL 
2HS / 4 vs VS 

HDOTRBP = - 2 HS Do/V 


C/Do LEO + K^(HDOT-BDOrREP) INTO PD 
Do /805 

enter with drep in MPAC 


K2D TEiW PRCM Puai 


(GO TO) 

INITIAL PART OF UPCCNTROL. 
CLEAR OvrPIND , IP CN. 


RDTR = lAD(vl-V) 




ASSBVLB BEVISICW 249 OP AOC PROGRAM CQLQ33US BY NASA 2021111-041 
REBnHY CONTROL. 


0856 

0857 

REP 

15 

last 

821 

0658 

A0859 

0860 

HEP 

2 

last 

821 

0861 

REP 

IT 

last 

821 

0862 

0863 

HEP 

16 

last 

821 

0864 

0865 

REP 

13 

LAST 

821 

0866 

REP 

3 

LAST 

810 

0867 

0868 

REP 

18 

LAST 

822 

0869 

0870 

REP 

4 

LAST 

809 

0871 

A0872 

0873 

0874 

REP 

HEP 

e 

1 

LAST 

818 


A08T5 

A08T6 


2S.3Z64 

25.3265 

25.3266 

25.3267 

25.3270 

25.3271 

25.3272 

25.3273 

25.3274 

25.3275 

25.3276 

25.3277 

25.3300 

25.3301 

25.3302 

25.3303 

25.3304 


03700 0 
43205 1 
15226 0 

45325 1 
00326 0 
03674 1 
41316 0 
03624 1 
65271 0 
15272 1 
00326 0 
56316 0 
03622 1 
45 265 1 
00330 1 

77650 1 
53243 1 


DMP 

■VOL 

Dsa 

DCV 

DSQ 

BDCV 

GOTO 


(DOT 

DAO 

K2D 

DSU 

Vl 

V 

DMP 

lAD 

POX, 

2C1HS 

VI 
DIV 

VSOIARB 

DSU 

Ao 


CtNSTOi 
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PUai UP LAD. 

lad ♦ K2D(RDOr-HDTB) INTO PD 


<Vl-V)SO LAD/(2 Cl HS) INTO PD 


DBEP = (VArilSO Ao - PD 

Puai UP HERE 
C(MPAC) = DREP 


2 2 

DIEP = LV/VD Ao -(V-Vl) LAD/2 Ci HS 
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L namcY control 


mn 

♦ START 

BALLISTIC 

PHASE ... 




A08TS 








KBP 

08T9 





25,3305 

66234 

1 

8880 

BBP 

1 



25,3306 

54473 

0 


0881 

SEP 

11 

LAST 

821 

25,3307 

03646 

0 


0882 

SEP 

2 

LAST 

SOT 

25,3310 

53311 

1 


AO 883 
AOSB4 
A0885 









0888 





25,3311 

45345 

1 

KEP2 

0887 

JBP 

1 

, « 


25,3312 

15166 

1 


0888 

RHP 

20 

LAST 

821 

25,3313 

03640 

0 


0889 





25,3314 

72240 

1 


0891 

A0892 

REP 

3 

LAST 

818 

25,3315 

53325 

0 


0893 

ep 

9 

LAST 

TT2 

25,3318 

03316 

0 


0895 





25,3317 

72214 

0 


0898 

REF 

4 

LAST 

80T 

25,3320 

03314 

1 


089T 





25,3321 

53323 

0 


0898 

REP 

6 

LAST 

820 

25,3322 

15332 

1 


0899 

RHP 

10 

LAST 

823 

25,3323 

37316 

1 

*2 

0900 

A0901 

A09a2 

RHP 

3 

LAST 

T48 

25,3324 

54402 

0 



c: 


20’35 OCT. 28,1908 PANDORA .080 PAGE 823 
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RIB 


M4 s 86 


UPCCNTRL INTRY INTO KEP2. 


SSP 

P86 

OOTQU»R 

KEP2 


DISPLAY TRIM OD«lAL ANGLE VALUES. 
fflT OOIQADOa TO KEPLER PHASE. 


KBP2 CAN ALSO BE SIARIED UP DIRECTLY PBCM I NITR CLL 
IN P64. PROGRAM WILL IDLE IN P64 UNTIL D EXCEH3S 
.2 G ffiPORB GOING IN TO P67 . 


DLQAD 

DSU 

IP OtP+KPMIN -D NEG,G0 to FINAL PHASE. 


OrPKDMIN 

f\ 

(Q7P ♦ KWIN)/805 

IXAf 

U 

TLCAD 



PBEFINAL 

ffiT RCLLHQLD = ROILC, IN CASE CMIAmOD 


ROLLC 

= +1 Ever anERED. 

Bm 

TLOVD 

IF D S .05G, KEEP PRESENT ROIL. CCM4AND 


.05G9W 

+2 

IF D i .05G, set ROLL COMMAND = 0. 


3ZBROS 

SET ROLLC d ROUHOLD =0. 

STCAIL 

ROLLC 

(SP ROLLHOLD FCLLCWS DP ROUE) 


P82.3 

CALC DESIRED GI^BAL ANGLES AT PRESENT 


W, VN TO YIEIX) trim ATTITUDE. 
AVAILABLE IN CpHI«S FOR N22. 
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start final fhasb 
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"S' 12 LAST 823 
REP 4 MST 823 
HEP 1 


0916 REP 1 

0917 

0918 REP 17 LAST 822 

0919 HEP 2 LAST 810 


0920 

0921 REP 


0922 REF 3 LAST 815 

0923 HEP 35 LAST 815 


0924 REP 

0925 REP 


REP 18 LAST 824 
REP 2 LAST 824 
REF 1 

REF 184 LAST 782 
REP 3 LAST 824 
REF 1 

REP 96 LAST 778 
REP 6 LAST 809 


REP 4 LAST 824 

REP 2 LAST 824 

REP 5 LAST 824 

REP 3 LAST 824 

REP 7 LAST 824 


REP 8 last 824 
REP 2 LAST lie 


I 


25.3325 

25.3326 

25.3327 
25,3330 


47131 1 PHEPINAL SSP 
03646 0 
53325 0 
54477 1 


RIB 

OOTOADDR 

PHEPINAL 

P87 


m = 67 


0913 

0914 REP 3 lAST 805 

0915 REP 13 last ' 824 

0916 REP 1 


restart PROIECT’ RESET OOTOADDR IP CAJ« 
PR01 HLNTEST. 

disables G[ip4. pine ip PRCM HLKIEST.BOT 

MAT ALSO RE^CVE RESTART PROIBCTICN CP 
N69 <P65). 

R®LC XHIGtERH DNIWGERR 

lOOC.XX DBO XXXX.X XXXX.X 


25,3331 

66214 0 


»T 

SSP 

25,3332 

03067 0 



Boar 

25,3333 

03646 0 



(XnOAIXJH 

25,3334 

53335 1 



predicts 

25,3335 

45345 1 

PHEDI(?r3 DLOAD 

DSU 

25,3336 

03674 1 



V 

25,3337 

15214 1 



VOJIT 

25,3340 

77440 1 


R8N 

Exit 

25,3341 

53605 1 



SIEBROPP 

25,3342 

3 4753 1 


CA 

EBaiTRy 

25,3343 

54 003 0 


T3 

HVANK 

25,3344 

3 5656 1 


CA 

twelve 

25,3345 

55«T71 0 

BACK 

TS 

JJ 

25,3346 

4 1673 0 


CS 

V 

25,3347 

51«TT1 1 


INDEX 

JJ 

25,3350 

6 3631 0 


AD 

VREPEH 

25,3351 

10 000 0 


CCS 

A 

25,3352 

11«7T1 0 


CCS 

JJ 

25,3353 

1 3345 1 


TCP 

BACK 

25,3354 

6 4712 1 


AD 

CUE 

25,3355 

55«646 0 


TS 

TSMiB 

25,3356 

51«TT1 1 


INDEX 

JJ 

25,3357 

4 3631 1 


CS 

VHEPER 

25,3360 

51«771 1 


INDEX 

JJ 

25,3361 

6 3632 0 


AD 

VHEFEH ♦ 1 

25,3362 

57«646 1 


XCH 

TSMiB 

25,3363 

22 007 0 


ZL 


25,3364 

0 0006 1 


EXTHTO 


25,3365 

ll'«646 0 


DV 

TtMiB 

25,3366 

55*651 0 


TS 

(SVAD 

25,3367 

3 4715 0 


CAP 

FIVE 


IP V-VQUIT NBO. STOP STmUNO 


PRECAlTTICNARy. 


VREP - V, HIOffiST VHEP AT BSD OP TABLE 
IP VHEF-V POS LOOP BACK 
DBCr©®jt JJ , JJ CANNOT BE ZERO 


V-VRBP IN TE4iB (MJST BE POSITIVE NCM) 


V(K+1) -ylK) (POS NCM) 


GRAD = (V-VREP)/(VK4-1 - VK> (POS NIM 


I 


A3Sa«LE BB/ISICN 24g OP AOC PBOORAM COUBSUS BY NASA 2021111-041 


20’35 OCT. 28>196B PANDORA .080 PAGE 825 


REatlRY OQHIROL 
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0844 

RKP 

5 

LAST 

T45 

25.3370 

5S«650 

1 

0945 

BBP 

2 

LAST 

T8S 

25,3371 

3 4720 

0 

0940 

BKP 

0 

LAST 

824 

25,3372 

27«TT1 

0 

094T 

BQ’ 

IBS 

LAST 

824 

25,3373 

50 000 

1 

0948 

REP 

4 

LAST 

824 

25,3374 

4 3631 

1 

0949 

REP 

T 

LAST 

825 

25,3375 

51«T71 

1 

0950 

REP 

5 

LAST 

825 

25,3378 

6 3632 

0 

0951 





25,3377 

0 0006 

1 

0952 

REP 

3 

LAST 

624 

25,3400 

7 1651 

0 

0953 

REP 

0 

LAST 

825 

25,3401 

51«771 

1 

0954 

REP 

0 

LAST 

825 

25,3402 

6 3831 

0 

0955 

REP 

0 

lAST 

825 

25,3403 

51«6S0 

0 

0950 

REP 

2 

LAST 

118 

25,3404 

55«652 

0 

095T 

REP 

T 

LAST 

825 

25,3405 

11«650 

1 

0958 

REP 

1 



25,3406 

1 3370 

1 

0959 

REP 

3 

LAST 

825 

25,3407 

5T«653 

0 

0960 

REP 

21 

LAST 

823 

25,3410 

6 1637 

1 

0961 





25,3411 

0 0006 

1 

0962 

REP 

'4 

LAST 

825 

25,3412 

7 1657 

0 

0963 

REP 

280 

LAST 

TB2 

25,3413 

52 155 

1 

0964 





25,3414 

0 0006 

1 

0965 

REP 

10 

LAST 

822 

25,3415 

4 1700 

0 

0966 





25,3416 

20 001 

1 

096T 





25,3417 

20 001 

1 

0968 





25,3420 

20 001 

1 

0969 

REP 

5 

LAST 

825 

25,3421 

6 1655 

0 

09T0 





25,3422 

0 0006 

1 

09T1 

REP 

0 

LAST 

825 

25,3423 

7 1656 

1 

09T2 

REP 

T 

LAST 

825 

25,3424 

6 1654 

1 

09T3 

REP 281 

LAST 

825 

25,3425 

20 155 

1 

09T4 

REP 282 

LAST 

825 

25,3426 

3 0154 

1 

09T5 

REP 

2 

LAST 

IIT 

25,3427 

55«TT0 

1 

A09T6 








09TT 

REP 208 

LAST 

BIT 

25,3430 

0 6006 

1 

09T8 





25,3431 

45242 

1 

09T9 

REP 

T 

LAST 

814 

25,3432 

03702 

1 

0980 





25,3433 

43014 

0 

0981 

REP 

2 

LAST 

807 

25,3434 

03305 

1 

0982 

REP 

1 



25,3435 

53462 

1 

0983 

REP 

4 

LAST 

803 

25,3436 

03747 

0 

0984 

REP 

1 



25,3437 

53445 

1 

0985 





25,3440 

43145 

0 

0986 

REP 

1 



25,3441 

13765 

I 

098T 

REP 

3 

LAST 

825 

25,3442 

03065 

1 

0988 

REP 

3 

LAST 

276 

25,3443 

,37716 

0 

0989 

REP 

2 

LAST 

825 

25,3444 

53462 

1 

0990 

REP 

4 

LAST 

825 

25 . 3445 

03716 

1 


BACiC2 


TS 

m 


CAP 

THIHTEai 


ADS 

JJ 


Doex 

A 


cs 

vrepeh 


ItBEX 

JJ 


AO 

EXTB© 

VREPER ♦ 1 

X(K*1) - X(K) 

HP 

GRAD 


INDEX 

JJ 


AD 

VREPER 


If63EX 

)44 


TS 

PX 

PX = AK ♦ ffllAD lAK+l - AK) 

CCS 

m 


TCP 

BACiC2 


XCM 

PX *1 

ZERO PX ♦! and get DREPR 

AD 

EXTB® 

D 


MP 

PX ♦ 5 

Pi 

DXCM 

BXTB® 

MPAC 

MPAC = PiCD-DREP) 

DCS 

DDCCBL 

DOQJBL 

rooT 

POtW HDOTREP - ROOT 

DDOUBL 


SCALE UP BY 8 FOR THIS PHASE. 

AO 

BXTBTO 

PX ♦ 3 

rooiREP 

HP 

PX * 4 

P2 

AO 

PX *2 

RTOOO 

DAS 

MPAC 

ADD P2(nADVl-OADVR) 

CA 

MPAC 


TS 

PHEDANO 

L/D = LCD ♦C'IHBTA- PBEDANG)/ 

TC 

INTPHET 


SR3 

DSC 

THEWH 


BCN 

BOPP 

OCNEPAST 

GOJBGLAD 

OCNEBY 

HAvDNRfKJ 


DLC«D 

SET 

SET GCNEPAST ip GCNEBY SET d 


WXRNB 

DISPLAY = 9999.9 IP GONEBY 


GQffiPAST 


SlCALL. DNRVGERH 
OCNBGLAD 


STORE 

DSR'^GERR 

= (PREOANG - THETA) /360 


PWCE 



I 
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L Katror oornsoL 


0991 

0993 

0994 

tBP 

T 

LAST 

821 

2S,,3I46 

ZE,3t4T 

2S,3«0 

0995 

REF 

8 

last 

825 


0996 

0997 

0998 

RBF 

3 

LAST 

820 

2SE>3i52 

S„St53 

®„3)t54 

0999 

1000 

■BF 

3 

LAST 

T98 

a!B„3t55 

*5,3456 

1001 

H9' 

4 

last 

826 

®,345T 

1002 

RBF 

8 

LAST 

820 

ZS..Si8a 

1003 

R1004 

1 2S,3I61 

®*®®AD AM) OOPOSII^ roiTRy 

1005 

1006 

8BF 

3 

LAST 

825 

ZS,3i62 

2S„»83 

1007 

1008 

REF 

14 

LAST 

799 

ZE,3I84 

K„3t85 

1009 

RSF 

14 

LAST 

822 

^,,3)466 

1010 

RE9F 

9 

LAST 

626 

ra„3»a7 

1011 

1012 

1013 

HBP 

RS* 

1 

22 

LAST 

825 

*B„3|fr0 

*6„3t(n 

2K„a-T2 

1014 

1015 

REF 

T 

LAST 

820 

*S„3Sr3 

1016 

RB' 

2 

LAST 

626 

2Sn3)t’T5 

1017 

1018 
1019 

tey 

REP 

1 

2 

LAST 

821 

3&„mrr 

3Sa„^Si30 

1020 

1021 

REF 

T 

LAST 

821 

aSppffixii 

1022 

1023 

1024 

REF 

REF 

1 

15 

LAST 

826 

3S„^a4 

1025 

1026 
1027 

REF 

REF 

1 

5 

LAST 

822 

25nS06 

1028 

1029 

1030 

REF 

IT 

LAST 

825 

£Dn35)r3 

1031 

REF 

8 

LAST 

626 

2S,p3ESr4 

1032 

1033 

REP 

18 

LAST 

826 


1034 

REF 

10 

LAST 

826 

25,»3EE5LT 


77878 

0 

DC(MP 


56204 

1 

BCVB 

DtV 

57343 

1 


ICOANZIG 

03853 

1 


rx 

40061 

1 

SL 

Boy 

20208 

1 


5 

53464 

1 


OCMAXL/D 

40015 

1 

EMO 

BOy 

03628 

0 


LCD 

53464 

1 


0(MAXL/D 

37634 

1 

SlCALL L/D 

53470 

1 


GLIMITBR 


POINTS FOR GLIMITEH 


T7T45 1 OONBGIAD DLOAD 

13463 1 OCMBGLAD 


41234 1 

OCMAXL/D RIB 

DMP 

45707 0 


SIG9WPAC 

03624 1 


LAD 

03834 0 

STORE 

L/D 

45345 1 

GLIMITBR DLGMD 

DSU 

15160 1 


GMAX/2 

03640 0 


D 

43244 1 

Bpl 

DAD 

535 2 0 0 


LMITL/D 

15160 1 


CMAX/2 

41240 1 

BNW 

dmp 

53515 0 


GOPOSLAD 

15262 0 


2HS 

41325 0 

PDOL 

dmp 

03654 0 


LEO 

15330 0 


1 /GMAx 

41215 1 

DAD 

DMP 

03624 1 


LAD 

56325 0 

PDOL 

DDy 

15264 0 


2HSQ4XSO 

03822 1 


VSCOARE 

75415 0 

DAD 

SORT 

51015 1 

DAD 

bpl 

03700 0 


poor 

53520 0 


LIMIIL/D 

77745 1 

GOPOSLAD DLCAD 


03624 1 


LAD 

03634 0 

STORBL/D STORE 

L/D 


!• 

20*35 OCT. 28,1888 PANDORA .080 PAGE 828 

USBIUS PAOB NO. 29 BT 83 

fall short if NEO, OkfEBSIOOr IF POS 

Clear ovpind if ch. 
nc= DHANGE/D L/D = y 


lOO TO) 

set L/D = -LAD 

(ANy NBGWTIVE NIPBEH (TILL DO) 

L/D = LAD SIGW(MPAC) 

And fall into olimiteh secticn 

IF Q>Mx/2-0 POS, 00 TO LIMITL/D 
IF QHAx -D NBO, GO TO GOPOSLAD 

2HS(GMAX-D) INTO PD 

2HS(GMAx-0) (LEO/®«X+LAD) INTO PO 

)ft,IM = SQRT<PD+(2 HSGMAx/V)SO) 

IP HDOT+XLIM POS, GO TO LIMIH^/D 
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20’35 OCT. 28,1968 PANDORA .080 PACB 82T 


RBomor cocncoL 


USBR>S PAGE NO. 30 


BT S3 



103S 

103S 

103T 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 
104T 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 
105T 

1058 

1059 

1060 
1061 
1062 

1063 

10631 

10632 

1064 

1065 

1066 
106T 
1068 
1069 
lOTO 
lOTOl 
lOTl 

10T2 

1073 

1074 

1075 

1076 






25,3520 

77745 

1 

LIMIIL/D DLQAO 



RBP 

It 

lAsr 

826 

25,3521 

03634 

0 



L/D 


Hep 

3 

lAST 

173 

25,3522 

17636 

1 


STODL 

L/Dl 


RBK 

6 

LAST 

826 

25,3523 

03622 

1 



VSQUARB 






25,3524 

77614 

1 


BCN 


NO LATERAL CCNTROL IP PAST TARGET 

RBP 

4 

LAST 

825 

25,3525 

03305 

1 



OCNBPAST 


RBP 

1 



25,3526 

53560 

1 



L355 






25,3527 

43205 

1 


DMP 

DAD 

Y= KLAT VSQUARE ♦ LATBIAS 

REP 

3 

LAST 

799 

25,3530 

03632 

0 



KLAT 


RBP 

1 



25,3531 

15242 

1 



lATBIAS 

Y INTO PD 





25,3532 

51525 

1 

L350 

POX 

AB3 

IP ABS(L/D)-L/DCMINR NBO, GO TO L353 

REP 

12 

LAST 

827 

25,3533 

03634 

0 



L/D 






25,3534 

50025 

0 


DSU 



REP 

3 

LAST 

798 

25,3535 

03630 

1 



L/DCMINH 


RBP 

1 



25,3536 

53545 

0 



L353 






25,3537 

75345 

1 


DLCWD 

SIGN 

IP K 2 RQI-L LATANO NBO, GO TO L 35 T 

REP 

6 

LAST 

803 

25,3540 

03676 

0 



LA TANG 


REP 

3 

LAST 

799 

25,3541 

03644 

1 



K 2 RCLL 






25,3542 

71240 

1 


HM4 

DLCftD 


RBP 

1 



25,3543 

53624 

1 



L357 






25,3544 

41542 

1 


SRl 

P094 

Y = Y /2 





25,3545 

75345 

1 

L353 

DLOVD 

SIGN 

IP LATANO SIGN(K 2 RCLL>-Y pos, switch 

RBP 

T 

LAST 

827 

25,3546 

03676 

0 



LAWNG 


REP 

4 

LAST 

827 

25,3547 

03644 

1 



K2B0LL 






25,3550 

77625 

0 


DSU 







25,3551 

71240 

1 


RK4 

DLOAD 


REP 

2 

LAST 

827 

25,3552 

53560 

1 



L355 


REP 

5 

LAST 

827 

25,3553 

03644 

1 



K 2 RCLL 






25,3554 

57414 

1 


BCNCLR 

DCCMP 

IP N09WITCH = 1 , K2R0ll-r K2R0LL 

REP 

2 

LAST 

818 

25,3555 

03210 

1 



NOSWITCH 


REP 

3 

LAST 

827 

25,3556 

53560 

1 



L355 


REP 

6 

LAST 

827 

25,3557 

03644 

1 


STORE 

K2R0LL 

K2R0L1, = - K2R0tLi 





25,3560 

56 345 

0 

L355 

DLOID 

IXV 

paUC = ACOSC (L/Dl) / LAD) 

REP 

4 

LAST 

827 

25,3561 

03636 

1 



L/Dl 


REP 

IT 

LAST 

826 

25,3562 

03624 

1 



LAD 

MPAC set TO +-1 IP GWERFLCVr*** 





25,3563 

65542 

1 


SRl 

ACOS 






25,3564 

43165 

*1 


SIGN 

Clear 


REP 

T 

LAST 

827 

25,3565 

03644 

1 



K2R0LL 


REP 

3 

LAST 

827 

25,3566 

03270 

1 



NOSWITGJI 


REP 

11 

LAST 

823 

25,3567 

03316 

0 


STORE 

ROLIX: 






25,3570 

77776 

1 

ENDEXIT 

EXIT 



HEP 

31 

LAST 

689 

25,3571 

3 4676 

1 

CVEreJOUT CA 

BIT13 

BITRYDSP =920 B13 

REP 

T 

LAST 

798 

25,3572 

7 0102 

0 


MAaC 

CM /FLAGS 






25,3573 

0 0006 

1 


EXTB® 



RBP 

1 



25,3574 

1 3600 

0 


BZP 

NCDISK7 

CMIT DISPLAY. 



f 
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L 

geeimct oqitrol 

lOTT 

REP 

7 

LAST 

754 

1078 

REP 

234 

LAST 

783 

1079 

REP 

2 

LAST 

531 

1080 

1081 

REP 

4 

LAST 

510 

1082 

REP 

3 

LAST 

510 

1083 

REP 

47 

LAST 

784 

1084 

REP 

5 

last 

759 


25,35T5 3 1263 1 

25.3576 0 4555 0 

25.3577 20821 0 


25.3600 

25.3601 

25.3602 

25.3603 

25.3604 


0 0004 0 
10 067 1 
0 5057 0 
0 4574 0 
77132 1 


CA BfinyvN 

IC bankcall 

CADR RBGODSPR 

NQDIaOf INHINT 

CCS NBWJOB 

TC CHANOi 

SBHVNOUT IC POSTJUMP 

CADR- fflBVEXIT 


20’35 OCT. 28,1966 PANDORA .080 PAGE 828 
USBRaS PAGE NO. 31 Ey S3 

all BITBY DISPLAYS ARB DONE HERB. 

NO ABORT IP DISKT IN USB 

PROIECT RBADACCS (ap 5, IP SIDBTBACKED. 

I coe here prcm P 87.3) 

AND B® AVERAGES JOB VIA ENDOFJOB. 
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20 ’35 OCT. 28,1908 PANDORA .080 PAGE 829 


RBBNnor CONTROL 


USBRoS PAGE NO. 32 


ET S3 



P1085 



DISPLAY WHEN V IS LESS THAN 

VQUIT. 



1088 





25.3605 

77776 

1 

sieeropp exit 



108T 

REP 

4 

lAST 

824 

25,3606 

3 4753 

1 

CA 

EfflNTOY 

PRBCAurlCNARY. 

1088 

RES' 

36 

LAST 

824 

25,3607 

54 003 

0 

TS 

EBANK 


1089 

RES' 

12 

LAST 

815 

25,3610 

3 4763 

1 

CA 

PRI016 

2 LESS THAN NTRYPRIO. 

1090 

REP 

27 

lAST 

776 

25,3611 

0 5027 

1 

TC 

NOVAC 


1091 

lep 

2S 

LAST 

787 

Be , 1661 



EBANK= 

AOG 

ANY EB HERE 

1092 

RBP 

3 

LAST 

754 

25,3612 

02511 

0 

2CADH 

P67.1 

START UP REMAINDER OP P67 

1092 





25,3613 

54066 

0 




A1093 










RTOGO lAT LCNG 

Ai094 










XXXX.X NM XXX.XX DBG XXX.XX DBG 

1095 

R^ 

28 

LAST 

784 

25,3614 

0 5261 

1 

1C 

2PH3CHNG 

INHINT/RELINT DONE. 

1096 





25,3615 

00414 

0 

OCT 

00414 

4.41 RESTART POR P87.1 DISPLAY JOB. 

109T 





25,3616 

10035 

0 

OCT 

10035 

servicer 5.3 RESTART. 

1098 

RBP 

1 



25,3617 

3 3623 

0 

CA 

P87 . 2CAD 

HEREAFTER, DO LAT, LCNG. 

1099 

RBP 

14 

LAST 

824 

25,3620 

55«645 

0 

TS 

OOrOADOH 


1100 

RBP 209 

LAST 

825 

25,3621 

0 6006 

1 

IC 

INTPRBT 


1101 





25,3622 

77650 

1 

GOTO 



1102 

REP 

1 



25,3623 

54530 

0 

P87.2CAD 

P87.2 

CONTINUE FOR LAT, LCNG THIS TIME. 

1103 





25,3624 

75345 

1 

L357 DLOVD 

SIGN 

L/D = L/DCMINH SIGN(L/D) 

1104 

RBP 

4 

LAST 

827 

25,3625 

03630 

1 


L/DCMINR 


1105 

RBP 

13 

lAST 

827 

25,3626 

03634 

0 


L/D 


1106 

REP 

S 

LAST 

827 

25,3827 

37636 

0 

SlCALL L/Dl 


HOT 

REP 

4 

LAST 

827 

25,3630 

53560 

1 


L355 

(GO TO ) 



I 


WBLB USH) tor StS-a^IlHL BEFEEENCE TRAJBCTORy CCNIML.. 

25.3831 OMTl 0 VREPBR DBC .019288 

25.3632 01235 1 OBC 040809 

25.3833 02337 1 DBC 076107 

25.3834 03721 0 DEC .122156 

25.3835 05230 0 DBC .185546 

25.3636 08213 1 DBC .196012 

25.3837 10550 0 DBC .271945 

25.3640 11717 0 DBC [309533 

25.3841 13314 0 DBC 356222 

25.3642 14736 0 DBC 404192 

25.3843 16255 1 DEC .448067 

25.3844 16457 0 - DBC .456023 

25.3845 25570 1 DBC ATqia 


.040809 

.076107 

.122156 

.165546 

.196012 

.271945 

.309533 

.356222 

.404192 

.448067 

.456023 

.67918 


25.3846 

77526 0 

DBC 

25,3847 

77360 1 

DBC 

25.3850 

77106 0 

DBC 

25.3851 

76516 1 

DBC 

25.3852 

76071 0 

DBC 

25.3653 

75570 1 

DBC 

25,3654 

74861 0 

DBC 

25,3655 

74436 0 

DBC 

25,3658 

73212 1 

DBC 

25,3657 

71640 0 

DBC 

25,3660 

54557 1 

DBC 

25,3881 

40000 0 

DBC 

25,3662 

40000 0 

DBC 

25,3663 

77835 1 

DBC 

25,3664 

77563 1 

DEC 

25,3665 

77354 0 

DEC 

25,3668 

76712 1 

DEC 

25,3667 

76086 0 

DEC 

25,3670 

75322 0 

DBC 

25,3671 

73237 0 

DEC 

25,3872 

72104 1 

DEC 

25,3673 

70301 1 

DBC 

25,3674 

656 35 1 

DBC 

25,3875 

57311 0 

DBC 

25,3676 

50575 0 

DEC 

25.3877 

50575 0 

DEC 
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RBPERBICE vELOCm scaled V/51532.3946 
13 POINTS are stored AS THE INDBPBrooiT 
VARIABLE AND THBf SIX 13 POINT FLNCTICNS 
OP V ARB STORED CCNSECOTIVELy 


-.010337 

-.016550 

-.026935 

-.042039 

-.058974 

-.070721 

-.098538 

-.107482 

-.147762 

-.193289 

-.602557 

-.99999 

-.99999 


HIGH VELOCITV PQR SAPBTy 
DRANGE/M scaled DHDA/(2700/805) 


-.0478599 

-.0683663 

-.1343468 

-.2759846 

-.4731437 

-.6472087 

-1.171693 

-1.466382 

-1.90517I 

-2.547990 

-4.151220 

-5.813617 

-5.813617 


-orange /DRDOT 

SCALED! (2VS/8 2700) DH/DHDOT) 
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eENncr ootmtoL 


USBBatS PAGE NO. 34 Bj S3 


2S,3T00 

2S,3T01 

2S,3T02 

2S,3T03 

2S,3T04 

2S,3T05 

2S,3T06 

25,3T0T 

25.3710 

25.3711 

25.3712 

25.3713 

25.3714 


74443 1 
74333 1 
74433 0 
74783 0 
75432 0 
75735 1 
76200 1 
75735 1 
75140 0 
74075 0 
73312 0 
73732 0 
73732 0 


25.3715 

25.3716 

25.3717 

25.3720 

25.3721 

25.3722 

25.3723 

25.3724 

25.3725 

25.3726 

25.3727 

25.3730 

25.3731 


00015 0 
00066 1 
00206 0 
00431 1 
00712 0 
01136 1 
02015 1 
02374 0 
03123 1 
04051 1 
05767 1 
07476 0 
11324 1 


25,37 32 
.25,3733 

25.3734 

25.3735 

25.3736 

25.3737 

25.3740 

25.3741 

25.3742 

25.3743 

25.3744 

25.3745 

25.3746 


78272 1 
75472 1 
74604 0 
74210 1 
74052 0 
73735 1 
73217 1 
73013 1 
73155 1 
74151 1 
76703 1 
77575 0 
77575 0 


Dec 

-.0134001 

B3 

Dec 

-.013947 

B3 

Dec ■ 

-.013462 

B3 

DEC 

-.011813 

B3 

DEC 

-.0095631 

B3 

DEC 

-.00806946 

B3 

DEC 

-.006828 

B3 

DEC 

-.00806946 

B3 

DEC 

-.0109791 

B3 

DEC 

-.0151496 

B3 

DEC 

-.0179817 

B3 

DEC 

-.0159061 

B3 

DEC 

-.0159061 

B3 

DEC 

.0008067 


DEC 

.0032963 


DEC 

.0081852 


DEC 

.017148 


DEC 

.027 926 


DEC 

.037 


DEC 

.063296 


DEC 

.077889 


DEC 

.098815 


DEC 

.127519 


DEC 

.186963 


DEC 

.238148 


DEC 

.294185185 


DEC 

-.051099 


DEC 

-.074534 


DEC 

-.101242 


DEC 

-.116848 


DEC 

-.122360 


DEC 

-.127081 


DEC 

-.147453 


DEC 

-.155528 


DEC 

-.149565 


DEC 

-.118509 


DEC 

-.034907 


DEC 

-.007950 


DEC 

-.007950 



RANGE TO GO SCALPD RTOGO/2700 
8.9 
22.1 


-ARBK/805 
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Plies 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 
119T 

1198 

1199 

1200 
1201 


25,3747 

25.3750 

25.3751 

25.3752 

25.3753 

25.3754 

25.3755 

25.3756 

25.3757 

25.3760 

25.3761 

25.3762 

25.3763 


00112 

00204 

00407 

01113 

02161 

03260 

03717 

05411 

10057 

13476 

20324 

21677 

21677 


Dec 

Dec 

Dec 

Dec 

Dec 

DBC 

Dec 

Dec 

Dec 

Dec 

Dec 

Dec 

Dec 


.004491 

.008081 

.016030 

.035815 

.069422 

.104519 

.122 

.172407 

.252852 

.363148 

.512963 

.556519 

.558519 


20*35 OCT. 28,1968 PANDORA .080 PAGE 832 
US 8 R.S PAGE NO. 35 B7 83 

DBANGE/D L/D scaled Y/2700 


BTO OP STORED REPeRBlCe 
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L 

Beatrice oontool 







USERoiS PAGE NO. 38 E? S3 

P1202 

RBENTW CXWSTANTS. 








R1203 

OBPINED BV EQUALS 








1204 

REP 

1 

4T21 



DBCls 

- 

L0*4 


A1205 






aA^t4ALl 

s 

22D 


12055 



25,3764 

16631 

1 

HAXKW 

20CT 

16631 06755 

DNHNGEHR = 9999.9 IP OCNEPASTrl 

12055 



25,3765 

06755 

0 





1206 



26,3144 




bank 

26 


1207 

HEP 

2 LAST 805 

26,2000 




SETLOC HEENTHYi 


1208 



26,3144 




bank 



1209 

HEP 

2 lAST 805 TO 

807’ 

41 41* 


COun* $S/BLTRY 


1210 

HEP 

3 LAST 815 

27,3362 



BAHH,Yi 

_ 

NEARCNE 

CCPMCM TO BOTH DISK, DANCE. DBFND IN TfV 

A1211 






IBITDP 


CCM4CN TO BOm DISC AND DANCE. DBFND IN VECpOINT. 

1212 



26,3144 

02525 

1 

1/121H 

DBC 

.083333 

DP 1/12 USES HI WOHD IN I /3 BELOW 

1213 



26,3145 

12525 

0 

1/3HD 

2D0C 

.3333333333 

DP 1/3 

1213 



26,3146 

12525 

0 





12131 

hep 

2 LAST 763 

27,3356 



1/161H 

- 

DP2t-4) 



R1214 

R1215 BELOUf* VS = VSAT = 25768.1973 PT/SEC 
B1216 fC = 21,202,900 PEBT 



121T 




26,3147 

04631 

1 

LFWOl 

TPec 

.15 


1217 




26,3150 

23146 

0 





1218 




26,3151 

03146 

1 

POINTl 

Tpec 

.1 


1218 




26,3152 

14632 

0 





1219 




26,3153 

06314 

1 

POINT 2 

■gxc 

.2 

.2 

1219 




26,3154 

31463 

1 





1220 




26,3155 

76314 

0 

DLEWDo 

2 D 6 C 

- .05 

-.05 

1220 




26,3156 

71462 

1 





1221 




26,3157 

05075 

0 

GMAx /2 

ZDBC 

.16 

8 GS / 2 

1221 




26,3160 

16051 

1 





1222 

RBP 

23 last 

763 

26,3331 



3ZER03 

EQUALS HI 6 ZEROS 


1223 




26,3161 

07777 

1 

NEAH 1/4 

2 OCT 

07777 00000 

1/4 LESS I bit IN UPPER PART. 

1223 




26,3162 

00000 

1 





1224 




26,3163 

00236 

0 

CI 8 

.2DeC 

.0097026346 

500/2VS 

1224 




26,3164 

36763 

0 





1225 




26,3165 

00204 

1 

QTFKDMIN 2DGC 

.0080745342 

6.5/805 (OTF -fROMIN) = 6 + .5) 

1225 




26,3166 

11303 

1 





1226 

REIP 

3 LAST 

833 

27,3356 



Cl/16 


DP2(-4) 


1227 




26,3167 

05260 

0 

03 

ZDEC 

.167003132 

.07 2VS/21600 

1227 




26,3170 

05572 

1 
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122S 

1228 

1229 

1229 

1230 

1230 

1231 

1232 

1232 

1233 

1233 

1234 

1234 

1235 

1236 
1236 
123T 
123T 
1238 

1238 

1239 

1239 

1240 

1240 
12405 
12405 

1241 

1241 

1242 

1242 

1243 

1243 

1244 

1244 

1245 
1245 
1248 
1248 
1247 

1247 

1248 

1248 

1249 

1249 

1250 

1250 

1251 

1251 

1252 
1252 


«»' 8 LAST BIB 


2 LAST 802 


26.3171 

28.3172 

12343 0 
21618 0 

05 

2Pec 

.328388889 

26.3173 

26.3174 

01073 1 
31515 1 

08 

2pec 

.0349 

28,3175 

28,3178 

00172 0 
03571 1 

O7P 

2DBC 

.0074534161 

26,3327 


019 


HALVE 


20’35 OCT. 28,1968 PANDORA .080 PAGE 834 
USER«8 PAOB MO. 37 E7 83 
.3 23500/21600 
2 DBO, APPRCK 820/23500 
6/805 (VALUE OP O7 IN PIXHJ 1B4. ) 

019 = .5 


26,3177 

26,3200 

00573 0 
10230 1 

021 

2000 

.0231481481 

500/21600 


28.3201 

28.3202 

76226 0 
45761 0 

022 

2DEC 

-.053333333 

-1152/21800 


26.3203 

28.3204 

13132 0 
33062 0 

VLMIN 

spec 

.34929485 

18000/2 VS 


28,3321 

26.3205 

26.3206 

00160 0 
05104 1 

VMIM 

C12 

spec 

POURTH 

.00684572901 

(VS/2) / 2VS 

32 28500/(21202900 2 PD 

26,3207 

26,3210 

11322 1 
32265 1 

I/K81 

spec 

.29411785 

1 / 3.4 


28.3211 

26.3212 

75047 0 
72454 1 

-l/kB2 

spec 

-.0057074322 B4 

= -l/( .0034 

2 VS) EXP +4 

26.3213 

26.3214 

00475 1 
35748 1 

VQUIT 

spec 

.019405269 

1000 /2VS 


26.3215 

28.3216 

06751 1 
27515 0 

C20 

spec 

.21739130 

( 175 PTSS) LIFT UP IF ABCVE C20 

26,3217 

28,3220 

05441 0 
14412 0 

C21 

spec 

.17391304 

140/805 


26.3221 

26.3222 

00022 1 
38641 1 

25NM 

spec 

.0011574074 

25/21600 

( 25 NAUT MILES) 

28.3223 

28.3224 

01003 0 
06315 0 

KlD 

spec 

.0314453125 

=Cl6 805/256 = 

.01 805/256 

28.3225 

26.3226 

71435 0 
75516 1 

K2D 

spec 

-.201298418 

-Cl7 2VS/256 = 

-.001 2VS/256 

28,3227 

26,3230 

32047 0 
24367 0 

KVSCALE 

spec 

.81491944 

12800/(2 VS .3048) 

28.3231 

28.3232 

37200 1 
05636 1 

KA SCALE 

spec 

.97657358 

5.85 16384/(4 

.3048 100 805) 

26.3233 

28.3234 

00046 0 
13137 0 

icmw 

spec* 

.383495203 E2 B- 

14* 1000 

2PI/16384(163.84) 

26.3235 

26 . 3236 

00017 1 
30730 0 

KTl 

spec* 

.157788327 E 2 B 

-14* BE(2PI)/2 VS(16384) 163.84 

28,3237 

26,3240 

00040 0 
30447 0 

.050 

spec 

.002 

.05/25 


28.3241 

26.3242 

00000 1 
17565 1 

LAW IAS 

spec 

.00003 

APPRX .5 NM/ 4(21600/2 PI) 

26.3243 

26.3244 

01727 1 
20103 1 

KWB 

spec 

.120056652 B-j 



26 . 3245 

26 . 3246 

00121 0 
17460 0 

KACOS 

spec 

.004973592 

1/32(2PI) 


26,3247 

28,3250 

00400 0- 
00000 1 

CHOCK 

2Dec 

1 B-6 

.25/16 








ASSEm^ RBVISICM 249 OP AOC PROffitAM COLOSSUS BY MASA 2021111-041 20*35 OCT. 28,1968 PANDORA .080 PACE 835 


reentry Control 


HEP 10 LAST T69 
REP 2 LAST TTO 


26.3251 

28.3252 

26.3253 

26.3254 

26.3255 

26.3256 
28,32ST 
28,3260 
28,3327 
26,3321 


LAST 634 


LAST 807 


26,3327 

26.3261 

26.3262 

26.3263 

26.3264 

26.3265 

26.3266 

26.3267 

26.3270 

26.3271 

26.3272 

26.3273 

26.3274 

28.3275 

28.3276 

26.3277 

28.3300 

28.3301 

26.3302 

26.3303 

28.3304 

26.3305 

26.3306 

26.3307 

28.3310 

26.3311 

26.3312 
28,3311 

26.3313 

28.3314 

26.3315 

26.3316 

26.3317 
28,3320 
26,3144 


END OP RE-ENTRY CWSTANTS . . . 


USERaS PAGE NO. 38 B7 S3 


01252 0 
25253 1 
24365 1 
30244 0 
77152 1 
51354 1 
00336 1 
21610 0 


.0833333333 B-1 


.0135836886 


HALVE 

POUHIH 


EOUALS 

equals 


HIDPHALP 

HIDPl/4 


00433 0 
02775 0 
00000 1 
20017 0 
77765 0 
70243 0 
31463 1 
06315 0 
00541 1 
33575 0 
00146 i 
14632 0 
00052 0 
30013 0 
20411 1 
03041 1 
20610 1 
10513 1 
11473 1 
02355 0 
00203 0 
02234 0 
16237 0 
00146 1 
01456 1 
03450 0 


1 /GMAX 

2HS 


equals 

jfiec 


HALVE 

.0172786611 


2HSt>«SO 


.0215983264 


VPINALl 


.523942273 


.049689441 


56232 1 
72332 0 
77000 1 
43741 1 
36702 1 
21727 0 


-HSCALED 


ICA 4 

-.55305018 


-KSCAiJ? 


16 Wl/25 = 16 (D /25 


-.0247622232 -<4 VS VS/ 2 PI 805 RE) 


700/2 VSAT 


4/»4AX = 4/8 
2 28500 25 32.2/U VS VS) 


.0000305717 <2 28500 8 32.2/ 4 VS VS) SO 


-<4/25)/256 LEO/Do CCNST 


2 1.25 28500 805/f2 VS)SO 


.00260929464 2 VS/19749550 


266 00/2 VS 


= 27000 / 2 VS 


25 /( 1 . 3 64) 


.2/25 


= 90 4 / 8 O 5 


= 40/805 = .049689441 
-28500/2 VS 


-.0312424837 -805/VS 






I 


III 

ASSE^«^.B REVISION 249 

OF AOC PROGRAM COLOSSUS 

by NASA 2021111-041 

L 

CM BODY ATrlTUDB 



POOOl 




•010 


35,3755 

bank 35 

•oil 

•012 

HEP 1 

37,2000 

37,3373 

SEILCE BIBYATT 
BAMC 

•013 

HEP 1 


COUNT 37/0€IAT 


A0014 

ROOIS 

OOIT 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 
0028 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 
0038 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 


20’35 OCT. 28,1988 PANDORA .080 PACE 836 
U88H.S PAOB NO. 1 Eo S3 


fOL 12P - isD SAFE. 

VAUES OP OIWWL AND BODlf ANOES VALID AT PIP TI>C ARE SAvS) DURING 

EBANK= HTINIT 

/POSE tC INTPHBT 

®TPO VLOID 
0 


REP 

10 

LAST 

602 

B7,1451 


REP 

210 

last 

629 

37,3373 

0 6006 1 





37,3374 

77201 1 

ttBP 




37,3375 

00001 0 

16 

LAST 

802 

37,3376 

01177 1 

REP 




37,3377 

6 336 1 0 

1 



37,3400 

37672 0 

. REP 

10 

LAST 

789 

37,3401 

01714 1 

REP 




37,3402 

74235 0 

10 

LAST 

803 

37,3403 

01760 1 

REP 

1 



37,3404 

15244 1 

REF 




37,3405 

45455 1 

3 

UST 

802 

37,3406 

74251 1 





37,3407 

72056 1 

REP 




37,3410 

00044 1 

6 

LAST 

804 

37,3411 

03542 1 

REP 




37,3412 

57435 1 

11 

LAST 

836 

37,3413 

01760 1 

REP 




37,3414 

66256 0 

32 

LAST 

741 

37,3415 

00051 0 





37,3418 

00476 1 

REP 




37,3417 

77300 1 

1 



37,3420 

77422 0 

REP 

2 

LAST 

116 

37,3421 

03534 0 

REP 

3 

LAST 

772 

37,3422 

03550 1 

REP 

3 

LAST 

836 

37,3423 

03534 0 

REP 




37,3424 

57435 1 

T 

LAST 

836 

37,3425 

03542 1 

REP 




37,3426 

77772 0 

3 

LAST 

772 

37,3427 

03556 1 


VXSC 


VXV 


VAD 

STORE 


VN 

POVL 

HWSCALE 

UNITW 

VXSC 

CNITR 

KWE 

STADR 

-VBEL 


UNIT LXA,i 
360 

STORE UXA/2 


SPVQUIT 


VXV 

UNIT 

DEC 

TIX.l 


VCCMP 

unitr 

SSP 

Si 

.019405 

VLCWD 

CM/POSE3 

CLDUVA 

UYA/2 


Q4/POSE2 STORE 

STORE ODUVA 
VXV 


HEADACCS. 

let interpreter set EB 

CCME HERE VIA AvEGEXIT. 

KVSCALE = (12800/ .3048> /2V3 

KVSCALE = .81491944 
FULL UNIT VECMOR 
VHEL = V - m*R 

SAVE FOR ENTOY GUIDANCE. REF COORDS 


ABvALC -VHEL) TO XI 
-UVRBL 


HEP COORDS 


VSI,1 

STORE 


VCCMP 

UXA/2 

UZA/2 


.5 LNIT ref CCXSDS 

THE FOUXWING IS TO PROVIDE A SIABIE 
CM for THE EM) OF THE TERMINAL PHASE 
1000/ 2 VS 

IF v-vouiT pos, Branch. 

SAVE U7A IN OLDUYA 

OWEflVflSE CCNTINlE TO USE aDUYA. 

REP cooros 

restore, or save As case may be. 


FINISH OBTAINING TRAJECTORY TRIAD. 

HEP COORDS 
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CM BODY ATTITVDB 


usbrsS page no. 


E7 S3 


004T 





37,3430 

77751 

1 

TUMD 


PICK OP cDux, axjY, CDin: corresponding 

0048 

RO' 

3 

LAST 

778 

37,3431 

03270 

1 


AOO/PIP 

TO PIPOP TI(« IN 2S,C AND SAVE. 

0049 





37,3432 

14031 

0 CH/TRIO 

STCDL 

24D 


0050 





37,3433 

00032 

0 


25D 

AIO/PIP 

0051 





37.3434 

41434 

1 

RIB 

puai 

TO POLO 

0052 

REP 

7 

LAST 

447 

37,3435 

45510 

1 


CDOLOQIC 


0053 





37,3436 

77746 

1 

COS 

* 


0054 

REP 

2 

lAST 

116 

37,3437 

17564 

0 

STCDL 

UBX/2 

Cl /2 

A0055 










AIO/PIP FRCM POL 0 

0058 





37,3440 

57556 

0 

SIN 

DCCMP 


005T 

RHP 

3 

LAST 

837 

37,3441 

17570 

0 

STCDL 

UBX/2 +4 

-SI /2 

0058 





37,3442 

00033 

1 


2ei> 

AMD/PIP 

0059 





37,3443 

41434 

1 

RIB 

puai 

TO PDL 0 

0060 

RBP 

8 

LAST 

837 

37,3444 

45510 

1 


CDULOGIC 


0061 





37,3445 

65356 

1 

SIN 

FOOL 

XCH PDL 0. SAVE S4 /2 

0062 





37,3446 

65 346 

0 

COS 

POOL 

CM /2 TO PDL 2 

0063 





37,3447 

00001 

0 


0 

SM /2 

0064 





37,3450 

74276 

1 

DCCMP 

vxsc 


0065 

REP 

4 

LAST 

837 

37,3451 

035 6 4 

0 


ID)(/2 


0066 





37,3452 

77772 

0 

va-i 


NOISE WCNT OVFL. 

006T 

REP 

2 

LAST 

116 

37,3453 

17572 

1 

STCDL 

UBY/2 

= (-»lCI, NOISE, SMSI) /2 

0068 





37,3454 

00003 

1 


2 

CM /2 REPLACES NOISE 

0069 

REP 

3 

LAST 

837 

37,3455 

17574 

1 

STCDL 

UBy/2 +2 

UBY/2=(-S4CI, CM, S4SI)/2 

OOTO 





37,3456 

00031 

0 


24D 

AOO/PIP 

OOTl 





37,3457 

41434 

1 

BIB 

PUSI 

TO PDI, 4 

0072 

REP 

9 

LAST 

837 

37,3460 

45510 

1 


CDULCBIC 


0073 





37,3461 

65 356 

1 

SIN 

POOL 

XCH PDL 4. SAVE SO /2 

0074 





37,3462 

74346 

0 

COS 

VXSC 

CO /2 

0075 

REP 

4 

LAST 

837 

37,3463 

0357 2 

1 


UBY/2 


0076 

RHP 

5 

LAST 

837 

37,3464 

17572 

1 

STCDL 

IIBY/2 

LBY/2=(-C0S4CI, COCM, C0SMSI)/4 

0077 





37,3465 

00005 

1 


4D 

SO /2 

0078 





37,3486 

57405 

1 

EMP 

DCCMP 


0079 

REP 

5 

LAST 

837 

37,3467 

03570 

0 


UBX/2 +4 

-SI /2 

0080 





37,3470 

77615 

0 

DAD 



0081 

REP 

6 

LAST 

837 

37,3471 

0357 2 

1 


UBY/2 

INCREMENT BY (SOSI /4) 

0082 

REP 

7 

LAST 

837 

37,3472 

17572 

1 

STCDL 

UBy/2 


A00B3 










SO /2 FRCM, PDL 4 

0084 





37,3473 

43205 

1 

DMP 

DAD 


0085 

REP 

6 

LAST 

837 

37,3474 

035 6 4 

0 


UBX/2 

Cl /2 

0086 

REP 

8 

LAST 

837 

37,3475 

03576 

0 


UBY/2 +4 


0087 

REP 

9 

LAST 

837 

37,3476 

27578 

0 

STOVL 

1»Y/2 +4 

YB/4 PLATFCK4 CCMRDS 

Aoosa 









YB = 

(-COS4CI + SOSI . COCM , COS4SI + SOCI ) 

0089 

REP 

10 

LAST 

837 

37,3477 

0357 2 

1 


UBY/2 


0090 





37,3500 

72505 

1 

V»1 

VSL2 


0091 

BEP 

33 

LAST 

790 

37,3501 

01736 

1 


pefsmat 

.5 UNIT 

0092 

REP 

11 

LAST 

837 

37,3502 

17572 

1 

STCDL 

UBY/2 

YB/2 done BEP CCXXOS 
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L CM BOOT AiriTlDB 


A0093 

0094 

0095 REP T 

0090 REP g 

009T 

0098 REP 9 

0099 BEP 10 

AOlOO 


last 

last 

last 

last 


83T 

838 


838 

838 


3T.3503 

3T.3S04 

3T.3S05 

3T,3S08 

3T,3S07 

3T.3S10 


T8S81 

03564 

17564 

77628 

50211 

03584 


BY NASA 2021111-041 


VX3C VSLI 
lftC/2 
STOOL l®(/2 
SWDR 

STO/L lBx/2 *2 
l»X/2 


20*35 OCT. 28,1988 PANDORA .080 PAGE 838 
USR>S PAOB NO. 3 Et S3 
•>• /2 PHCM POL 2 

=( «>«I, NOISE, -CMSI)/2 

SM /2 FRa>l POL 0 

a* /2 REPLACES NOISE 

ltB/2 PLAIPOHM COORDS 


0101 





37,3511 

76505 0 

VXM 

VSLi 

0102 

REP 

34 

LAST 

83T 

37,3512 

01736 1 



0103 

BEP 

11 

LAST 

838 

37,3513 

03564 0 

STQRB 

lftC/2 

0104 





37,3514 

76435 1 

vxv 

va^i 

0105 

REP 

12 

last 

837 

37,3515 

0357 2 1 


lW/2 

0106 

BEP 

2 

LAST 

116 

37,3516 

27600 1 

STCVL 

aaz/2 

A0167 









A0108 









0109 

BEP 

8 

LAST 

836 

37,3517 

03542 1 


tKA/2 

0110 





37,3520 

53435 0 

VXV 

INIT 

0111 

BEP 

13 

LAST 

838 

37,3521 

035 7 2 1 


lW/2 

0112 





37,3522 

50206 0 

PU9f 

DOT 

0113 

REP 

4 

LAST 

836 

37,3523 

03556 1 


UZA/2 

0114 

HEP 

3 

LAST 

544 

37,3524 

24021 1 

STCVL 

COSTH 

0115 





37,3525 

00001 0 


0 

0116 





37,3526 

77641 1 

dot 


0117 

REF 

4 

LAST 

836 

37,3527 

03550 1 



0118 

REF 

3 

LAST 

544 

37,3530 

34023 1 

stcaix. sinth 

0119 

REP 

3 

LAST 

544 

37,3531 

47211 0 


arctrio 

0120 





37,3532 

24007 0 

STOYL 

6D 

0121 

BEP 

14 

LAST 

838 

37,3533 

03572 1 


UBY/2 

0122 





37,3534 

72441 0 

DOT 

SLl 

0123 

REP 

9 

LAST 

838 

37,3535 

0354 2 1 


U)CA/2 

0124 





37,3536 

77736 0 

arcsin 


0125 





37,3537 

24010 0 

STOVL 

70 

0126 

BEP 

12 

LAST 

838 

37,3540 

03564 0 


UBx/2 

0127 





37,3541 

77641 1 

DOT 


0128 





37,3542 

00001 0 


0 

0129 

BEP 

4 

LAST 

838 

37,3543 

24023 0 

STOYL 

SINTH 

0130 





37,3544 

77641 1 

DOT 


0131 

BEP 

3 

LAST 

838 

37,3545 

03600 1 


|BZ/3> 

0132 

BEP 

4 

LAST 

838 

37,3546 

34021 0 

SlCALL cosm 

0133 

HEP 

4 

LAST 

838 

37,3547 

47211 0 


ahctrig 

0134 





37,3550 

24011 1 

STCVL 

SD 

0135 

REP 

12 

LAST 

836 

37. 3551 

01760 1 


uNira 

0136 





37,3552 

72441 0 

DOT 

S/l 


Xfl = f OCI , a4 , -CMSI ) 


.5 IWIT 
XB/2 done 


23/2 DCNE 


REF COORDS 


HEP COORDS 


bquival&it to 

= ( SOSVI ♦ COSI , -SOCM , -SOSMSI ♦ COCI) 

-WHEL/2 = -UVA/2 

CKT INIT<-WREIAuBY)/2 = UI,/2 

YB/2 

UL/2 TO POL 0,5 
UM/2 

cost ROLL) /4 
IJL/2 


-SIN(R0LL)/4 
-fROLL/180) /2 

-WA.UBY = -SIN(BET«) 
-UVREL /2 

-(BEW/ieo) /2 
XB/2 

UL.UBJC r -SINtAIPA) 
OL/2 

-SINtAlJ='A)/4 
UL/2 from POL 0 




C0SCAIJ=’A)/4 

-(AIPA/ieO) /2 
UR/2 


BEP COORDS 
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013T 

0138 

HEP S lAST 838 

37,3353 

37,3554 

03556 1 

77726 1 

IBA/2 

ABCCOS 

MORE ACCURATE AT LARGE ARO. 

0139 


37,3555 

00013 0 

STORE lOO 

fUUMA/igo )/2 

0140 

^141 


37,3556 

77551 0 

TtOAD EXIT 

ANCLES IN MPAC IN THE ORDER 
-C (ROLL, BETA, ALPA) /l80)/2 

0142 

W143 

spacer 

37,3557 

00007 0 

6D 

THESE VAUES CORRECT AT PIPOP TIME 


L 
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USBRaS PACE NO. 


P0144 


0145 BS' 28 


BASIC SimaiTINB TO UPDATE ATTITUIB ANGLES 
LAST 


Bt S3 


0148 BBP 
014T HEP 

0148 BEP 

0149 

0150 BEP 

0151 BEP 

0152 
A0153 
A0154 
A01S5 


1 

37 

IT 

2 

74 


LAST 

last 

last 

LAST 


829 

B6,1661 




fflAMc= 

AGO 


37,3560 

3 4752 

0 

CM/ATUP 

CA 

EBAQG 

829 

37,3561 

54 003 

0 


T3 

EEAMC 

737 

37,3562 

50 120 

1 

CMrai 

INDEX 

PIXLOC 


37,3563 

4 0012 

0 


Cs 

lOD 

110 

37,3564 

5T«T22 

1 


XCH 

OAMA 

779 

37,3565 

54 001 

1 


T3 

L 


37,3566 

0 0004 

0 


DWINT 



0156* 

SEP 

8 

lAsr 

82T 

0157 

REP 

23 

last 

732 

0158 





A0159 





0160 

R0P 

1 



0161 

REP 

9 

LAST 

840 

0162 

RBP 

1 



0163 

FEF 

T5 

LAST 

840 

0164 

REP 

3 

last 

840 

0165 





0166 

RBP 

1 



0167 

REP 

2 

LAST 

110 


0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 
A01T6 
A017T 
A01T8 

A01T9 

0180 

0181 

0182 

0183 

0184 

0185 

0186 


BEP 20 LAST 824 


HEP 154 
HEP 3 


last 788 

LAST 840 


BEP 283 LAST 825 


REP 


HEP 

HEP 


3 
3 

REP 2 


lAST 778 
last 778 
LAST 840 


37,3567 

4 0102 0 

Cs 

CM/PLAGS 

37,3570 

7 4700 0 

mask 

BITll 

37,3571 

0 0006 1 

extend 

37,3572 

1 3575 1 

BZP 

DOQV®Or 

37,3573 

26 102 0 

ADS 

CM/PLAGS 

37,3574 

0 3610 0 

TC 

NOQV®Or 

37,3575 

4 0001 1 

DOGA.'COr Cs 

L 

37,3576 

6 1722 1 

AD 

QVMA 

37,3577 

0 0006 1 

EXTB® 


37,3800 

7 38 7 3 1 

MP 

TCDU 

37,3601 

55«723 1 

TS 

GA.©Or 

37,36 02 

0 0006 1 

EXTEND 


37,3603 

6 3605 1 

Bafl» 

♦2 

37,3604 

4 0000 0 

CCM 


37,3805 

6 4715 0 

AD 

FIVE 

37,3606 

0 0006 1 

EXTB© 


37,3607 

6 36 1 2 1 

B»r 

♦3 

37,3810 

3 4714 1 

NOGAMXW CA 

zero 

37,3611 

55«723 1 

TS 

GANDOr 


37.3612 

37.3613 

37.3614 

37.3615 
37,3816 
37,3617 
37,3620 


4 0154 0 
6 0000 1 
0 3663 1 
0 0006 1 
61<«672 0 
6 1664 1 
0 366 3 1 


CS .VIPAC 

double 

TC CORANGCV 

EXTK® 

SU ROLL/PIP 

AD boll/180 

TC CORANGIV 


(aAMA/i80)/2 


MIST RQ4AIN INHINTED UNTIL UPDATE OP BOOT 
ANOES, SO THAT OAHIIFSIA IS VALID PIHST PASS 
INDICATOR. 


GA«>IPS9f=94D BITll INITLy=o 
dcht calc qama dot until have Pore® 

CNE DIPFEHaraB. 

IS CK, GO CN. 

KNOW BIT IS 0 
set GWMDOT = 0 


DSL, aAMA/360= T GAMW/seO 

TCaj = .1 sec, T = 2 SEC. 

QAMA DOT TCDU / 180 

IGNORE GAMDOr IP lEO .5 DEGl/SEC 


SET aAi®Or=+0 AS TAG IP TOO SMAU,. 

CCMB HERE INHINTS). 

POR NOW LEAVE IN 2S,C 

update ANGLES BV CORRECTING EUILER ANG 

PGR ACCruB) INCRE4ENT SINCE pipup 

H = R EUIL + R(NOW) -R(PIPUP) 

get (R EUL/180) /2 

POSSIBIE OVERFLOW 

CORRECT FOR Om, IF ANY 

get inch SINCE PIPUP 
CNl-Y SINGIE OVS, POSSIBIE 
CORRECT FOR O/FL IP ANY 
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OIBT 

REF 

2 

LAST 

114 

37,3821 

55«T70 

1 

T3 

■BWPROLL 

0188 

REF 

284 

LAST 

840 

37,3622 

4 0156 

1 

cs 

MPAC 4-2 

0189 





37,3623 

6 0000 

1 

dclsle 


0190 

RSE 

3 

LAST 

840 

37,3624 

0 3663 

1 

TC 

COBANOCK 

0191 





37,3625 

0 0006 

1 

EXTfND 


0192 

REF 

2 

LAST 

109 

37,3828 

61«673 

1 

SU 

ALFA/PIP 

0193 

REP 

3 

LAST 

173 

37,3627 

6 1665 

0 

AD 

alfa/180 

0194 

REP 

4 

LAST 

641 

37,3630 

0 3663 

1 

TC 

COBANGOV 

0195 

RS' 

2 

LAST 

114 

37,3831 

55«771 

0 

TS 

TBLPALFA 

0198 

REF 

285 

LAST 

641 

37,3632 

4 0155 

1 

Cs 

MPAC +1 

019T 





37,3633 

6 0000 

1 

CMm2 double 


0198 





37,3634 

0 0006 

1 

EXTB© 


0199 

REF 

3 

LAST 

778 

37,3635 

61*674 

0 

SU 

BETA/PIP 

0200 

REF 

3 

LAST 

778 

37,3638 

6 1666 

0 

AD 

BETA/IBO 

OiOl 

REF 

2 

LAST 

114 

37,3637 

57*772 

1 

XCH 

tfmpbeta 

0202 

REP 

3 

LAST 

S26 

37,3640 

3 4744 

1 

CA 

EaANK3 

0203 

REF 

38 

LAST 

840 

37,3641 

54 003 

0 

TS 

EBANK 

0204 

REF 

1 



B3,1446 



EBANK: 

PHS«M^ 

0205 





37,3642 

0 0006 

1 

ExToro 


0206 

REF 

1 



37,3843 

3 3675 

0 

DCA 

BEPOSADR 

0207 

REF 

2 

LAST 

841 

37,3844 

53*447 

0 

DXCH 

PHSW«5 

A0208 










0209 

REP 

2 

LAST 

840 

37,3845 

3 4752 

0 

CA 

EBAOO 

0210 

REP 

39 

LAST 

841 

37,3646 

54 003 

0 

TS 

EBANK 

0211 

REP 

27 

LAST 

640 

E6,1661 



raWNlCr 

AOO 

0212 





37,3647 

0 0006 

1 

redopose extend 


0213 

REF 

3 

LAST 

841 

37.3650 

3 1771 

1 

DCA 

TB4PB0LL 

0214 

REF 

4 

LAST 

840 

37,3651 

53*865 

1 

DXOI 

ROLL/I8O 

0215 

REF 

3 

LAST 

841 

37,3652 

3 1772 

1 

CA 

TB4PBEIA 

0218 

REF 

4 

LAST 

841 

37,3653 

55*666 

1 

TS 

BETA/ISO 

0217 





37,3654 

0 0003 

1 

RELINT 


0218 

REF 

211 

LAST 

836 

37,3655 

0 6006 

1 

TC 

INTPRET 

0219 





37,3658 

51575 

1 

CM/POSE3 VLOID 

ABvAL 

0220 

REP 

17 

LAST 

836 

37,3657 

01177 

1 


VN 

0221 

REP 

6 

LAST 

536 

37,3660 

03723 

1 

STORE 

VMAGI 

0222 





37,3861 

77650 

1 

GOTO 


0223 

REF 

5 

WST 

799 

37,3662 

03324 

1 


posexiT 

0224 

HEP 

76 

LAST 

840 

37,3863 

54 001 

1 

CORANGCV TS 

L 

0225 

REF 

176 

LAST 

788 

37,3864 

0 0002 

0 

TC 

0 

0226 

REP 

IBS 

LAST 

825 

37,3665 

50 000 

1 

INDEX 

A 


GET CALFA EUL/ISO) /2 

SA* AS PX» ROLL. NEEDED FOR EXT AIM DAP 

CORRECT FOB ftTL IP ANY 


correct fob cvfl if any 


GET (BBW EUL/IBO) >2 


OVFL NOT expected. 


THIS ASS13MES THAT THE TC PHASCUNG 
IS NOT CHANGED IN OCT 10035 

®IVICER. 


RE-STARTS COME HERE 


CANT TC DANZIG AFTER PHASCHNG. . 
RETURN FROM CM/ATUP. (RESTART) 
2 (-7) M/CS 
FOB DISPLAY ON CAIL. 


ENDEXIT, STARTENT, OB SCALEPOP. 



L 
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0227 

0228 

0229 

0230 

0230 

0231 

0232 

0233 
0233 


MS' 1 

BSP TT tAST 841 
■BP ITT last 841 


HEP 28 IAST 841 
RBP 1 
HBP 1 


37,3866 

3 4673 1 

CA 

LIMITS 

37,3867 

26 001 1 

ADS 

L 

37,3870 

0 0002 0 

1C 

O 

37,3671 

45730 1 

-KVSCALE 2DBC 

-.81491944 

37,3672 

53410 1 



37,3673 

03146 1 

ICDU DEC 

.1 

E6,1661 


EBANK= 

AOO 

37,3674 

03647 1 

RBPOSADR 2CADH 

REDOPOSE 

37,3675 

76066 0 




U«US PACE NO. T E6 S3 

COSTS 2 MCT to use. SHE ANOO»rtMB. 
-12800/12 VS .3048) 

TCDO = .1 SBC. 
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0001 

00012 

00014 

REP- 

1 

31,3215 

36,2000 

36,2502 

BAJOC 

SEILOC 

BAMC 

31 

RlEl 

0002 

0003 

REP 

REP 

3 LAST 2T5 

1 

Et,1631 

ebank= 

COUNT 

RIEDVD 

31/P3T 


R0050 PR0®AM DBSCRIPTION - P37, RBTUIW TO EARIH 
B0051 DBSCRIPTICN 

B0052 A RBIUBN TO EAKIH TRAJECTORY IS CCMPITIED PIKVIDBD THE CS4 IS CUTSIDB THE UXAR SPHERE OP INPURItS AT THE 
ROOS4 TI* OF IGNITION. INITIALLY A CCNIC TRAJECTORY IS DETBIWINED AND RESULTING IGNITICN AND REENTRY PARAMETERS ARE 

R0056 DISPLAYED TO THE ASTRCNAUT. THE! IP THE ASTRONAUT SO IKSIRBS, A PRECISION TRAJECTORY IS DElEIWINED WITH THE 

R00S8 RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON PINAL ACCEPTANCE BY THE ASTHONAur, THE PROOTAM 

R0060 COMPUIES AND STORES THE TARGET PARAMETERS FOR RETUIW TO EARTH FOR USE BYSPS PROGRAM (P40) OR flCS PROGRAM (P41). 

R0080 CALLING SEQUENCE 
R0081 L TC P3T 

ROlOO subroutines CALLED 
BOlOl PRECioo 

R0102 V2T100 

R0103 RTENCK2 

B0104 RTENCiC3 

R0105 TII«RAD 

ROIOS' PARAM 

R0107 V2TT00 

R0108 OANDYIO 

B0109 XTlLIM 

KOllO DyCALC 

Rom RTENCkl 

R0112 INTSTALL 

R0113 INTEGRYS 

R0114 RIEVN 

Rons RlPDISP 

R0116 TIWADioO 

R0117 AUGENUGL 

R0118 LAT-LCNG 

R0119 TMRADIOO 

R0120 TII«RAD 

H 0121 INVCioO 

H012Z CSMPREC 

R0123 GETERAD 

H01235 TI^e^HBT 

B0124 P370ALHM 

B0125 VN1645 

R0126 POLY 


R0150 ERASABLE INITIALIZATION REQUIRED 
H0151 CSM STATE VECTOR 



ill 
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■0152 NJBrSPLO NlpeeR CP JETS IP THE BCs PROPULSION SYSTBI SELE(?IH> SMTB FLAO 


■0180 

■0181 

■0183 

■0185 

■018T 

■0160 

■0181 

■0182 

■0184 

■0188 

■0188 

■0190 

■0192 

■0194 

■0195 

■0197 

■0199 

■0201 


Astronaut input 

SPRIBTIO 
VPKED 
(MM4AEI 
0PTICN2 


TIMS OP ICNITICN (OVERLAYS TIO) 

D03II®) (JlANQB IN VELOCITY AT TIO( PROOHM CCMPUIED IP 
DESIRH) FLIGHT PATH ANGLE AT REENTRY (CCMPUIH) IP 0) 
PROPULSION SYSTtM OPTION 


OUTPUT 

CONIC OR PRECISICN TRAJE(JiQBY DISPLAY 


VEUKITY WONITUE At 400.000 FT. BITRY ALTIUCE 
TSANSIT TI^E TO 400.000 FT. B(TRY ALTITUDE 
FLKWT path ANCIE At 400.000 PT. ENTRY ALTITUE 
INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL (XXIRD 
LATITUE OF THE LANDING SITE 

lcnoitue op the landing site 
targeting CGMPUIATIGN display 

TIG RECOMPUIBD TIG RASED GN THHJST OPTICN 

TTOGO tine PRCM TIG 

♦MGW positive middle GINBAL ANGLE 

THRUST PROGRAM CGNMINICATIGN 


VPRED 
T3TOT4 
GANMAEI 
DBLVLVC 
LAT( SPL) 
LNG( SPL) 


■0202 


XDELVFLG 

external delta V FLAO 




■0204 


NOBMSW 

LANBERT AIMPT ROIATIGN 

SWITCH 



■0206 


bcsteer 

CROSS PROXXIT STEERING CONSTANT 



■0208 


RTARO 

CONICALLY INTEGHATS) RHBfTRY POSITION VECTOR 

«>210 


TVASS4- 

reentry tine 





0243 

REP 

.87 

LAST 

615 

36 , 2502 

0 5301 0 

P37 

TC 

PHAstHNG 

0244 





38.2503 

00004 0 


OCT 

4 

0245 

REP 

212 

LAST 

841 

36.2504 

0 6006 1 


TC 

INTPRET 

0248 





38,2505 

68170 1 


AXT.l 

axA.i 

0247 





36.2506 

04000 0 


OCT 

04000 

0248 

REP 

5 

LAST 

640 

36,2507 

03424 0 



bcsteer 

0249 





38,2510 

77776 1 


EXIT 


0250 

REP 

1 



36,2511 

3 3242 0 


CAP 

V6N33RTE 

0251 

REP 

1 



38,25 1 2 

0 3231 1 


TCR ■ 

P3T0GCP 

0252 





36,2513 

1 2511 1 


TCP 

-2 

0253 

REF 

1 



36,2514 

3 3246 1 


CAP 

V6N60RTE 

0254 

REP 

1 



38,2515 

0 3205 0 


TCR 

P37C3W1 

0255 





38,2516 

1 2514 1 


TCP 

-2 

0500 

REP 

213 

LAST 

844 

36,2517 

0 6006 1 

RTE299 

TC 

INTPRET 

0501 





38,2520 

71331 0 


SSP 

DLOAD 

0502 

HEP 

1 



36,2521 

00122 0 



OVPIND 

05025 





36,2522 

00000 1 



0 

0503 

REP 

7 

LAST 

764 

36,2523 

03767 1 



VPRED 

0504 

REP 

4 

LAST 

843 

38,2524 

17632 0 


STOOL 

RTEDVD 

0505 

REP 

6 

LAST 

764 

36,2525 

03771 0 



GANWAEI 

0506 

REP 

3 

LAST 

275 

38,2526 

17634 0 


STOOL 

RTEGAM2D 

0509 

REP 

1 



36,2527 

31687 1 



IRTEBis 


STATE 

FLAG 

0=4 jets 1=2 jets 

DP 

B28 

CS 

DP 

bt 

NETERS/CS 

DP 

Bo 

REVS -f ABOVE HORIZ. 

SP 

B14 

1=SPS, 2=RCS 

DP 

B7 

)ETEHS/CS 

DP 

B28 

CS 

DP 

Bo 

REVS * ABOVE HORIZON 

vecntor 

B7 

NETERS/CS 

DP 

Bo 

REVS 

DP 

Bo 

REVS 

DP 

B28 

CS 

DP 

B28 

CS 

DP 

Bo 

REVS -.02 IP REPSMFLG=o 

STATE FLAG 

SET 0 POR LANBERT AIMPT 

state flag 

set 0 FOR NO ROTATICN 

SP 

B2 

SET 1 

vector 

B29 

METERS 

DP 

B28 

CS 

P37 IS NOT RESTARTABLE. 



INPUT TIG STORED IN SPHTETIG 

OvERLAYED WITH TIG 
DESPLAY NEW DATA 
INPUT REENTRY ANGLE IN GWMAAEI 
and DESIRED DELTA V IN RTSTVD 
DISPLAY NEW DATA 
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0510 

UP 

2 

LAST 

125 

36.2530 

17T35 0 


STOOL 

COlICXl 


0511 

REP 

1 



36,2531 

337S6 0 



C 4 HIE 


0512 

BBE 

2 

LAST 

125 

36,2532 

37652 1 


SICALL HVMAXl 


0513 

BBP 

1 



36,2533 

64427 1 



INVClOO 

get RCTl)/,VGTl)/,URl/,lH/ 

0514 





36,2534 

77545 0 


DLQAD 

Exit 


05145 

RBP 

2 

LAST 

125 

36,2535 

03646 0 



RCTl) 


0515 

BBP 

2 

LAST 

286 

36,2536 

0 7171 1 


TC 

POLY 


0510 





36,2537 

00002 0 


Dec 

2 


051T 





36,2540 

02544 0 


2PBC 

1810004 34. B-31 


051T 





36,2541 

35436 0 





0518 





36,2542 

14040 0 


2Pec 

1. 50785 145 B -2 


0518 





36,2543 

05066 1 





0510 





36,2544 

44052 0 


2pec* 

-6 .4999305TE-9B27* 

0510 





36,2545 

60030 1 





0520 





36,2546 

26415 0 


2Pec* 

9.7693B926E-1BB58* 

0520 





36,2547 

25057 1 





0521 

Bar 

214 

LAST 

844 

36,2550 

0 6006 1 


TC 

INTPHBT 


0522 





38,2551 

77752 1 


a^i 



0525 

BBT 

2 

LAST 

125 

36,255 2 

17654 0 


STCDL 

M1M4X2 

CC>tCi 4 R 4 G! 2 *R 4 = 42 +C 34 »M= 3 =,'W«X 2 B 30 

0528 

REP 

1 



36,2553 

31717 1 



M 9 KIE 828 


052T 

IBP 

2 

LAST 

125 

36,2554 

17730 0 


STODL 

NNlA 


0528 

REP 

1 



36 , 2555 

33762 1 



K2RTB 


0529 

RHP 

2 

LAST 

125 

36,2558 

17636 1 

R 1 B 320 

STCDL 

BCCN 

HCCNrK2 

0530 

HBP 

4 

LAST 

844 

36,2557 

03634 0 



HIKMM 2 D 


0531 





36,2560 

44254 1 


BzE 

BDSU 


0532 

REP 

1 



36,2561 

74570 0 



RIB 34 O 

GOTORIE340 IP REENTRY ANGLE NOT INPUT 

0533 

BBP 

1 



36,256 2 

31655 0 



1RTEB2 


05335 





38,256 3 

71406 0 


PU31 

COS 

PL 02 D 

0534 





36,2564 

73525 1 


POOL 

SIN 


0535 





38,2565 

45465 1 


BOOvr 

siadr 

PLOOD 

0530 

BBT 

1 



36,2566 

40051 1 


SICALL X(T2) 

X(T 2 )=COr<G»M 2 D) Bo 

053T 

IBP 

1 



38,2567 

74603 i 



R 1 E 360 


0538 





36,2570 

45 345 1 

R 1 E 340 

DUMD 

DSU 


0539 

REP 

3 

LAST 

845 

36,2571 

03646 0 



R(Tl» 


0540 

BBP 

1 



38,2572 

33760 0 



KlRTE 


0541 





38,257 3 

71240 1 


BW 

DUMD 


0542 

HEP 

1 



36, 2574 

74600 1 



KIEsso 


0543 

BBP 

1 



36,2575 

33766 0 



K4R3E 


0544 

BBP 

2 

LAST 

845 

36,2576 

37726 0 


SICALL XCT2) 

X(T2)=K4 

0545 

BBP 

2 

LAST 

845 

36,2577 

74603 1 



KiBaeo 


0540 





36,2600 

7T745 1 

HIE 350 

DLOID 



054T 

HEP 

.1 



36,2601 

33764 1 



K3R3E 


0548 

REP 

3 

LAST 

845 

36,2602 

03726 1 


STORE 

X(T2) 

X(T2)=K3 

0549 





36,2603 

77624,1 

RIE 360 

CALL 



0550 

REP 

1 



36,2604 

65136 0 



V2T100 


0551 





36,2605 

52054 1 


BzE 

GOTO 


0552 

REP 

1 



36,2606 

74610 0 



RTE387 


0553 

RSf' 

1 



36,2607 

74772 0 



KlEALBM 


0554 





38,2810 

77775 1 

inE387 

VIXMD 



0555 

BBP 

2 

LAST 

125 

36,2811 

03640 0 



R(Tl)/ 




R(Tl)/ 
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0556 

REP 

6 

lAST 

546 

36.2612 

16657 

1 

STODL 

18^ 

055T 

REP 

3 

LAST 

645 

38,2813 

03636 

1 


RCCM 

0558 

REP 

2 

lAST 

94 

38,2614 

26760 

1 

STtVL 

msiRSD 

0559 

REP 

2 

last 

125 

38.2615 

03700 

0 



0560 

REP 

10 

LAST 

548 

38,2616 

36746 

1 

SICALL WEC 

0561 

HH' 

1 



36,2617 

64272 

1 


1MHAD100 

0562 





36,2620 

77615 

0 

DAO 


0563 

REP 

2 

LAST 

125 

38.2821 

03718 

1 


Tl 

05T0 

REP 

2 

LAST 

125 

38,2622 

17736 

0 

STQDL 

T2 

05T1 

REP 

5 

LAST 

845 

38,2623 

03834 

0 


RreaAM2D 

05T2 





36.2624 

520S4 

1 

B2e 

goto 

65T25 

REP 

1 



38,2625 

74627 

1 


R1G369 

057251 

REP 

1 



36.2626 

74851 

0 


1*18372 

0573 





36,2827 

51575 

1 Rieaeg 

VUMD 

ABVAL 

0574 

REP 

2 

LAST 

125 

38.2630 

03710 

1 


V<T2>/ 

0575 





36,2631 

77776 

1 

Exit 


0578 

REP 

3 

LAST 

845 

38.2632 

0 7171 

1 

1C 

POLY 


0ST8 

05T8 

05T9 

0ST9 

0580 

0580 

0581 

0581 

0582 REP 215 


05825 

058251 REP 1 
0583 

0587 REP 1 

0588 

0589 REP 4 

05895 

058951 REP 5 

0590 

0591 REP 2 

0592 REP 13 

0593 REP 3 

0594 

0606 REP 1 

0607 

0608 REP 4 

0609 

0610 REP 1 

0611 

0612 REP 1 

0613 REP 1 

0614 

0615 


last 845 


4 LAST 845 

5 last 846 


36.2633 

36.2634 

36.2635 

36.2636 

36.2637 

36.2640 

36.2641 

36.2642 

36.2643 

38.2644 

36.2645 

36.2646 

36.2647 

36.2650 

36.2651 

36.2652 

36.2653 


00002 
00000 
00000 
47021 
65002 I 
35610 I 
07722 : 
6377 2 I 
6 3276 : 

0 6006 1 
77615 < 
01352 1 
52052 1 
74653 ) 
77745 1 
03726 1 


2DBC -4.876077lE-2fl4 
2PBC 4.5419476E-4B11 
ZDBC -1.4317675E-6B18 
1C INTPRET 


HlEDi 

GOTO 

BIE373 


1 RIE373 


846 

36,2654 

03726 1 


XGTZ) 


36,2655 

53575 0 

VLCWD 

IKIT 

125 

36,2656 

03656 1 


R(T2)/ 

766 

36,2657 

36152 1 

SlCAll, ALPHAV 

766 

36,2660 

26437 0 


geterad 


36,2661 

77615 0 

DAO 



36,2662 

33772 0 


EsRTE 


36,2663 

45206 1 

puaf 

Dai 

846 

36,2664 

03638 1 


HCCN 


36,2665 

45246 0 

ABS 

DSU 


36,2666 

31754 0 


EPC2R1E 


36,2687 

52040 1 


GOTO 


36,2670 

74672 1 


R1E3T4 


36,2671 

74677 1 


R1C375 


36,2672 

51545 1 Rre374 

DtXMD 

ABS 


36,2673 

obool 0 


ODD 


X(T2) ,=Di+D2V2+D3V24=t:2+04V2^3 
X(T2),=X(T2) 

X(T2)ERH 




Bo PU)2D 


RCCN, = (Ei/(i+E 2 BBWii)**. 5)4.83 B29 P14)4D 
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OBIT 





36.2074 

50025 

0 

0818 

REP 

1 



36.2075 

31756 

1 

0620 

MB' 

1 



30.2676 

T4747 

0 

0621 





36.2077 

43345 

1 

0022 

REP 

3 

LAST 

545 

38.2700 

03730 

0 

0623 

HEP 

1 



36.2701 

31675 

1 

0024 





36.2702 

67240 

0 

0025 

BSP 

1 



36.2703 

74707 

1 

0626 

REP 

1 



36.2704 

31735 

1 

002T 





38.2705 

77650 

1 

0628 

HEP 

2 

LAST 

845 

36.2706 

74772 

0 

0629 

HEP 

4 

LAST 

847 

36.2707 

03730 

0 

0030 





30.2710 

53025 

0 

0031 

REP 

1 



36,2711 

31721 

1 

0632 

REP 

1 



30,2712 

74730 

0 

0633 





36,2713 

45345 

1 

0634 





38,2714 

00001 

0 

0635 

HEP 

2 

LAST 

125 

38,2715 

03666 

1 

0636 





38,2716 

65301 

0 

06 3T 

REP 

35 

LAST 

789 

36,2717 

00047 

1 

0638 

REP 

2 

LAST 

125 

38,2720 

03670 

0 

0639 





36,2721 

56225 

1 

0640 

REP 

6 

LAST 

846 

36,2722 

03726 

1 

06405 





38,2723 

53605 

1 

0641 





36,2724 

00001 

0 

06415 





36,2725 

20201 

0 

0642 





36,2726 

77650 

1 

06425 

REP 

1 



36,2727 

74732 

1 

0643 





36,2730 

77745 

1 

06435 





36,2731 

00001 

0 

0844 





36,2732 

14021 

1 

06445 





36,2733 

77626 

0 

0645 

REP 

5 

LAST 

846 

38,2734 

60141 

0 

06455 





36,2735 

77600 

1 

064551 

REP 

3 

LAST 

B4S 

38,2736 

74603 

1 

0646 

REP 

3 

LAST 

847 

36,2737 

17666 

1 

00465 

REP 

7 

LAST 

847 

38,2740 

03726 

1 

0647 

REP 

3 

LAST 

847 

36,2741 

17670 

0 

064T5 





36,2742 

00021 

1 

0648 





36,2743 

77615 

0 

06485 

REP 

e 

LAST 

847 

38,2744 

03726 

1 

0649 

REF 

9 

LAST 

847 

38,2745 

37726 

0 

06495 

REP 

4 

LAST 

847 

36,2746 

74603 

1 

0650 





36,2747 

77624 

1 

0651 

REP 

1 



38,2750 

74776 

1 

0800 





36,2751 

41345 

0 

0801 

HEP 

2 

LAST 

125 

36,2752 

03720 

1 

0 a 02 

RBP 

2 

LAST 

125 

38.2753 

03754 

1 

0803 





36,2754 

53021 

1 

0804 

BS^ 

6 

lAST 

847 

36,2755 

03636 

1 


RTEsTS 


R3E380 


R1B38S 

RrB390 


P3TE 

R3E505 


D3U 

CMI 

BPC 3 RIE 

P37E 


DUMD 

DAD 

NNlA 

IRIES 28 


EM< 

SLOAO 

RIE 38 O 

OCT605 


OCQO 


RIEALJW 

TOO MANY ITERATICNS 

STORE 

NNlA 


DSG 

BZE 

M8R1EB2B 

RIE385 


DLOU> 

DSU 

OOD 

DHCCN 


NOFM 

POOL 

XI 

HPHE, 

X ( T2 ) EHR-X ( T2 ) err , =Z1 

DSU 

DOV 

X(T2) 

X(T2)PRI-X<T2)=Z2 

DMP 

SL* 

DX(T2)=X(T2)ERR{Z2/Z1> 


OOD 

0,1 


GOTO 


RTE390 


DLCAD 

OOD 

DX(T2)=XtT2)EHR 

STOOL 

160 

DX(T2) 

SlADR 

SrCDL 

RCO) 

BCCNrRCCN, 

BOV 


BTE360 


STCDL. 

DRCCN 

XfT2) 

X(T2)BHH,=X(T2)BRB 

STODt. 

RPBB, 

16D 

X<T2)PRI=X(T2) 

VAD 


X<T2) 


SlCALL X(T2) 

X(T2)=X(T2)+DX(T2) 


KIE36O 

reiterate 

CALL 

KIBVN 

DISPIAY CCNIC saiTTICN 

DLOJD 

DMP 

PCCN 

BBTAi 


BDSU 

BZE 

RCCN 



PLOSD 

PL04D 

PU>2D 
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0805 

0808 

080T 

0808 

0809 

0810 
0811 
0812 

0813 

0814 

0815 
0818 
081T 
0818 
08185 
0819 

R0824 

R0825 


usbrsS page no. 


US' 2 lAST 848 
BB? 2 lASr 845 


US' 3 LAST 848 
BH' 2 LAST 125 
RHP 1 


BBP 2 LAST 200 


38,2758 

38,2757 

38,2760 

38.2781 

38.2782 

38.2783 

38.2784 
38,2765 
38,2708 
38,2767 

36.2770 

36.2771 

38.2772 

36.2773 

38.2774 

38.2775 


74764 1 
71240 1 
74784 1 
31855 0 
77650 1 
74766 0 
57545 1 
31655 0 
37761 0 
64515 1 
77654 0 
75024 0 
77624 1 
64255 1 
77776 1 
1 2502 0 


RRSlO 

tKf DUMD 
RIBSIO 
1RIEB2 

ooro 

B7B515 

Rl^lO DUMD OCCMp 
1 HTEB2 

HT^IS SlCALL PHI2 

PRECioo 

B1®625 

T37O 

rteaum call 

T370AIJ*4 

Bn IT 

TCP P37 


ROICf NEAR APOCBB 
BTnCf near PERIGEE 


PHECISICH IRAJECtORT CCMPUIATICN 


BECYCIE APIEH ALARM DISPLAY 


BS' 2 LAST 125 
REP 1 


REP 1 
REP 1 

REP 9 LAST 779 
REP 1 


BCP 3 LAST 
REP 1 
BH' 2 LAST 
BEE 4 LAST 
BEE 2 lAST 
BEE 2 last 

BEE 5 last 

REP 1 
REP 3 LAST 
BEP 6 LAST 
BHP 216 LAST 


BEP 3 LAST 848 


36.2776 

38.2777 

36.3000 

36.3001 

38 . 3002 

36.3003 

36 . 3004 

36.3005 

38.3006 

38.3007 

38.3010 

36.3011 

36.3012 

38.3013 

38.3014 

36.3015 

36.3016 

36.3017 

36.3020 

36.3021 

38.3022 

36.3023 


45020 1 
0376 3 0 
64311 0 
77776 1 
3 3244 0 
0 3215 1 
3 4710 0 

0 3211 0 

1 3013 1 
1 2502 0 
3 3245 1 

0 3231 1 

1 250 2 0 
3 3246 1 

0 3205 0 

1 ^02 0 
3 3247 0 

0 3231 1 

1 250 2 0 
0 6006 1 

77650 1 
0376 3 0 


BEIUHN to BARIH DISPLAY SIERCUTINE 
RIEVN SIO CALL 


CALL 

VNSTQBE 

KIEDISP 


display PHBPARATICN 


V6N61RIE 

P370GCFH 

POUR 

37 BLANK ♦! 

♦5 

P37 

V6N39inE 

P37OCXF 

P37 

veNeoKiE 

P37GPW»1 

P 37 

V6N81R1E 

P370GCP 

P37 

intprbt 


LAtIIUDE , LCNOITLCe , BLANK 
IN LAT(SPL),U«!(SPL),- 


RECYCLE 

T21 HRS, min, SEC IN T 3TOT4 


RBCYCI£ 

display BLANK,V(T2),PPA2 

IN -,VPRED,CW44AEI 
RBCWXE 

DISPIAY DELTA V (LV) IN DBLVLVC 


RBCryCLE 


PBECISICN DISPLAY, TORGETING CO^rt/WTICN AND RIB EMD PROCESSING 



36,3024 

77624 1 

P37G 

CAU, 

847 

36,3025 

74776 1 




36,3026 

77776 I 


EKIT 

732 

36,3027 

3 4716 0 

P37N 

CAP 

608 

38,3030 

S5«131 1 


TS 

824 

36,3031 

3 4712 1 


CAP 


OPTICNi 
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0871 

REK 

11 

LAST 

695 

36.3032 

55- 132 

1 

0872 

REP 

1 



36.3033 

3 3243 

1 

0873 

REP 

4 

LAST 

848 

36.3034 

0 3231 

1 

0874 





36.3035 

1 3033 

0 

087S 

REP 

21T 

LAST 

848 

36.3036 

0 6006 

1 

0870 





36.3037 

67201 

0 

0877 





36.3040 

00001 

0 

0878 

REP 

12 

lAST 

849 

36,3041 

01133 

1 

0879 





38.3042 

S3025 

0 

0880 

REP 

2 

LAST 

844 

36.3043 

31667 

1 

0881 

REP 

1 



36.3044 

75053 

0 

0882 





36,3045 

60335 

1 

0883 

REP 

*3 

LAST 

683 

36,3046 

00111 

0 

0884 

REP 

36 

LAST 

847 

36,3047 

00047 

1 

0885 





36,3050 

S212S 

0 

0886 

REP 

1 



36,3051 

31725 

0 

0887 

REP 

1 



36,3052 

75064 

1 

0888 





36,3053 

43145 

0 

0889 

REP 

1 



36,3054 

31731 

0 

0890 

REP 

3 

LAST 

682 

36,3055 

00700 

0 

0891 

RES' 

1 



36,3056 

75060 

0 

0892 





36.3057 

77752 

1 

0893 





36,3060 

77752 

1 

0894 





36,3061 

65301 

0 

0895 

REP 

37 

LAST 

849 

38,3062 

00047 

1 

0896 

REP 

1 



36,3063 

31727 

1 

0897 





36,3064 

56325 

0 

0898 

REP 

2 

LAST 

125 

38,3065 

03706 

0 

0899 





36,3066 

77776 

1 

0900 

REP 

4 

LAST 

846 

36,3067 

0 7171 

1 

0901 





36.3070 

00001 

0 

0902 





36,3071 

00001 

0 

0902 





36,3072 

05070 

0 

0903 





36,3073 

17527 

1 

0903 





36,3074 

36700 

0 

0904 





36,3075 

47114 

0 

0904 





36,3076 

70670 

1 

0905 

REP 

218 

LAST 

849 

36.3077 

0 6006 

1 

0906 





36,3100 

67206 

1 

0907 

HEP 

6 

LAST 

683 

36,3101 

03076 

0 

0908 





36,3102 

56205 

0 

0909 





36,3103 

41257 

1 

0910 





36,3104 

20165 

1 

0911 

REP 

1 



36.3105 

31733 

1 

0912 





36,3106 

77621 

1 

0913 

REP 

3 

LAST 

846 

36,3107 

03716 

1 

0914 

HEP 

65 

LAST 

677 

36,3110 

03413 

1 

0915. 





36,3111 

77776 

1 

0916 

REP 

2 

LAST 

844 

38.3112 

3 3242 

0 

0917 

REP 

5 

LAST 

849 

36,3113 

0 3231 

1 


P37Q 


P3TR 


P37T 


TS 

OPTICN2 


CAP 

V4N06BTB 

DISPLAY HCS OR SPS 

TCR 

PSTOGOP 


TCP 

-2 

RECYCLE 

IC 

INTPHBT 

PROCEED 

SETPO 

SLOAD 

OOD 

0PTI(K2 


DSO 

BzE 

iRlEBia 

P3TO 


SLQAD 

NORM 

B®OT 

XI 

SPS 

POOL 

GOTO 

VCSPS 

P37T 


DLOAD 

BCN 

MXJTHCS 

NJETSPLO 

P37H 

BOS 

a,i 



SLl 

NOW 

POOL 



XI 

VCRCS 


POM, 

DOV 

dvaa: 


DV 


EXIT 

TC 

POLY 


DEC 

1 


ZDEC 

5.6624050TE-4B- 

-3 

2DEC 

9.79487897E-1B- 

-1 

2DBC 

-.38828195501 


TC 

INTPRBT 


PUSH 

a..QAD 

WEIOTT/G 

(l-E)*+( -DVA^)=A 

DMP 

DOV 

DTB=(M0/MX)T)A 

SL* 

DMP 

0 -12D,1 

csobt 


BDSU 

Tl 


STORE 

EXIT 

TIC 

TIG=T1-CT+0TB 

CAP 

V6N33RTE 

DISPIAY BIASED TIG 

TCR 

P370GOF. 



SPS ASSUMED 


B7 -Bg = Bz PL02D 


B3 PL04D 
B16+B3-B3=B16 PI-OOD 


B28 
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0918 

09184 

09185 
09188 

0919 
09195 
091951 

0920 
092001 
092005 

09201 I 
092015 I 

09202 
092025 I 

09203 I 
092035 

09204 
092045 I 

09205 1 
092055 
09208 I 
092085 ■ 
0920T 
0920TS I 

09208 I 
092085 

09209 8 
092095 

0921 B 
092105 

09211 01 
092115 

09212 01 
092125 01 

09213 01 
092135 B 

09214 B 
092145 B 

09215 01 

0922 

0923 01 

0924 01 

0925 

0928 m 

092T 

0928 OC 

0929 Oi 

0933 

0934 oe 

0938 oe 


155 MST 840 
10 lAST T83 
T MST T83 
219 lAST 849 


3 LAST 848 

2 LAST 125 
1 

1 

1 


1 

1 

2 LAST 850 
4 LAST 850 

1 

1 


T LAST 544 


LAST 
LAST 
LAST 
LAST 
LAST 
11 LAST 
5 LAST 


4 

T 

3 

T 

3 


543 

544 

845 

846 
846 
846 
544 


8 LAST 666 
6 LAST 879 

T LAST 520 

10 LAST 545 
6 LAST 544 

4 LAST 849 
12 LAST 668 


36.3114 

36.3115 
36i3116 
36,3117 

36.3120 

36.3121 
. 38,3122 

36.3123 

38.3124 

36.3125 

36.3126 

36.3127 

36.3130 

38.3131 

36.3132 

38.3133 

36.3134 

36.3135 

36.3136 

36.3137 

36.3140 

36.3141 

36.3142 

36.3143 

36.3144 

36.3145 
36,3148 
38,3147 

36.3150 

36.3151 

36.3152 

38.3153 

38.3154 

36.3155 

36.3156 

36.3157 
36,3160 
36,3181 

38.3162 

36.3163 

36.3164 

36.3165 

36.3166 

38.3167 

36.3170 

36.3171 

36.3172 

38.3173 

36.3174 

38.3175 


1 3112 
3 4714 
55«125 
55«126 
0 6006 
77624 
65055 
53575 
03656 
74315 
03740 
31740 
74315 
03746 
31742 
50255 
50015 
31744 
75163 
5 0375 
03746 
03656 
71240 
75147 
31746 
52006 
75151 
41545 
31750 
77756 
16732 
43146 
03666 
26734 
03640 
26857 
03700 
36746 
24737 
43014 
01267 
03865 
77214 
01071 
77628 
60362 
00037 
77615 
03716 
27656 


1 

1 

1 

1 

1 

1 

1 

0 

1 

0 

1 

0 

0 

1 

1 

0 

0 

1 

1 

0 

1 

1 

1 

1 

0 

0 

0 

0 

1 

0 

0 

0 

1 

0 

0 

1 

0 

1 

1 

0 

0 

1 

0 

0 

0 

0 

0 

0 

1 

1 


P37U 

P37V 


P37W 


V2<Tl)/ 
SICALL WEC 

TIi«THET 
clear 
XOBLVFLG 
NOBMSW 
VLQAD 
FINALFLG 


WEAR 


SET 


SWDR 

STOOL 


OAD 



NASA 2021111-041 

20’35 OCT. 28,1968 PANDORA .080 

PAOB 850 



U8BR.S PAOB NO. 8 

B7 83 

TCP 

-2 



CAP 

ZERO 



TS 

VHFCNT 



TS 

TWMCCNT 



7C 

INIPHBT 



CALL 

HlBlClCl 

CCNICALLY INTE0BATE PRa4 Ri.Vl 

CVER T12 

VLQAD 

UNIT 

B(T2)/ 


FLOOD 

POVL 

VX3C 

ORl/ 

MCOS7.5 

UH2 

Bl PL06D 


POVL 

vxsc 

IH/ 

MSIN7 .5 

-URl(COS7.5) 

Bl PL12D 


VAD 

DAO 

DOT 

tM4 

MC0322.5 

P37W 

K/=-URl < C0S7 .5 > -tH( S IN7 . 5 ) 

B2 PLOOD 

VLQAD 

dot 

UH/ 

R(T2)/ 

K/ . UR2 OH COS22.5 



MXAD 

P37U 

THEWies 



puai 

GOTO 




P37V 



DLOAD 

puai 

THBW210 



SIN 

STOOL 

S41H 



COS 

CLEAR 

RVSW 



STOVL 

CSIH 

R(Tl)/ 



STOVL 

RVBC 






FTOBB 

T 


Tl 

STO/I, TTASSA 
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20 ’35 OCT. 28,1968 PANDORA .080 PACE 851 


P3T,P70 



093T 

REP 

4 

LAST 

850 

38,3178 

03700 

0 


V2lTl)/ 

0938 





38,3177 

77651 

0 

vso 


0939 

REP 

2 

lAST 

125 

36,3200 

03672 

1 


VITl)/ 

0940 

REP 

11 

LAST 

067 

36,3201 

37646 

1 

STCALL DBIVSIN 

0941 

REP 

5 

LAST 

520 

36,3202 

73005 

0 


VN1645 

0942 





36,3203 

77650 

1 

GOTO 


0943 

REP 

2 

LAST 

850 

36,3204 

75163 

1 


P3TW 

R0948 










R0949 

subrcutinb To 

00 TO OOPLASIR AND BLANK Rl 


0950 





36,3205 

0 0006 

1 

P 37 GEPSS 1 extend 


0951 

REP 

2 

LAST 

125 

36,3206 

23«762 

0 

(KCH 

SPRTEX 

0952 

REP 

2 

LAST 

648 

36,3207 

0 3215 

1 

TCR 

P 370 OOPR 

0953 

REP 

98 

LAST 

848 

36,3210 

3 4712 

1 

. 37 BLANK CAP 

CNE 

0954 

REP 

15 

LAST 

727 

36,3211 

0 5415 

1 

TCR 

blanket 

0955 

REP 

101 

LAST 

785 

36,3212 

1 5112 

1 

TCP 

BTOOPJCB 

0956 

REP 

3 

LAST 

851 

36,3213 

0 1762 

0 

TC 

SPRIEX 

09ST 

REP 

1 



36,3214 

1 3240 

0 

TCP 

P37PROC 

R09S8 










R0959 

SL^ROrrlNE TO GO TO GQFIASIR 





0960 





36,3215 

0 0006 

1 

P 370 GOPR Exrero 


0961 

REP 

2 

LAST 

125 

36,3216 

23«T33 

1 

OCCH 

RTENQcEX 

0962 

REP 

235 

LAST 

828 

36,3217 

0 4555 

0 

TCR 

bankcall 

0963 

REP 

19 

LAST 

752 

36,3220 

20783 

1 

CADH 

QOFLAaiH 

0964 

REP 

67 

LAST 

755 

36,3221 

1 4106 

0 

TCP 

OOTOPOCM 

0965 





36,3222 

1 3225 

0 

TCP 

+3 

0966 





36,3223 

1 3227 

1 

TCP 

+4 

096T 

REP 

3 

LAST 

851 

36 , 3224 

0 1733 

1 

TC 

rtenckex 

0968 

REP 

4 

LAST 

851 

36 , 3225 

51«733 

1 

INDEX 

RIENCKBX 

0969 





36 , 3226 

1 0004 

1 

TCP 

0 +4 

09T0 

REP 

5 

LAST 

851 

36,3227 

51«733 

1 

INDEX 

RTENCKEX 

09T1 





36 , 3230 

1 0003 

0 

TCP 

0 +3 

R09T3 










R09T4 

SUBROjrlNE TO 

GO TO GOFLAai 





09T5 





36,3231 

0 0006 

1 

P 370 GOP EXTEND 


09T6 

REP 

4 

LAST 

B51 

38,3232 

23«»762 

0 

(KQl 

SPRTEX 

097T 

REP 

236 

LAST 

851 

36,3233 

0 4555 

0 

TCR 

BANKCALL 

09T8 

REP 

41 

LAST 

T54 

36,3234 

20624 

0 

CADR 

GOFLASH 

09T9 

REP 

68 

LAST 

851 

36,3235 

1 4106 

0 

TCP 

OOTOPOCH 

0980 





38,3236 

1 3240 

0 

TCP 

+2 

0981 

REP 

5 

LAST 

851 

36 , 3237 

0 1762 

0 

TC 

SPRTEX 

0982 

REF 

6 

LAST 

851 

36 , 3240 

51«762 

0 

P 3 TPROC INDEX 

SPRTEX 

0983 





36,3241 

1 0001 

1 

TCP 

0 +1 

0985 





36,3242 

01441 

1 

V 6 N 33 RTE VN 

0633 

0986 





36,3243 

01006 

0 

vANoetne vn 

0406 

0987 





36,3244 

01475 

0 

V6N6IRTE VN 

0661 

0988 





36 , 3245 

01447 

1 

V 6 N 39 RTE VN 

0639 

0989 





36,3246 

01474 

1 

V6N60RTE VN 

0660 


USBRaS PAOB NO. • Et S3 


RECYCLE 

PROCEED 


terminate 

IM>«DIATE RETUIN 
PROCEED 

RECYCLE 
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2021111-041 


L 

P3T,P70 


0990 

0998 

099T 

0998 

0999 

REP 1 

REP 1 

30,3247 

32,2255 

32,2000 

32,2255 


01521 0 VSNglRIB VN 0681 
bank 32 
SBTLOC rib 
bank 

COUNT 32/inB 


2n)"35 OCT. 28,1968 PANDORA .080 PAGB 852 
USBIUS PAGB NO. lo By S3 




L P3T,PT0 UaEH«S PAOB HO. 11 Et S 3 

PIOOO ALABM OISPIVIY SlSROoriHB 


1050 





32,2255 

77420 

1 

P3TOALHH STO 

EXIT 

1051 

RBP 

T 

lAST 

851 

32,2256 

03762 

1 


SPRIBX 

1055 

HBP 280 

UVST 

841 

32,2257 

3 0154 

1 

CA 

MPAC 

1050 

HEP 

2 

LAST 

154 

32,2260 

0 5651 

0 

TC 

VARALABM 

105T 

HBP 

1 



32,2261 

3 2271 

1 

CAP 

V5N09RIE 

1058 

HEP 

25T 

LAST 

851 

32,2262 

0 4555 

0 

TC 

BANkCAU, 

1050 

HEP 

42 

lAST 

851 

32,2263 

20624 

0 

CADR 

GCPLAat 

1060 

OB' 

69 

LAST 

851 

32,2264 

1 4106 

0 

TCP 

OOTOPOCH 

1001 





32,2265 

1 2261 

1 

TCP 

-4 

1062 

. HEP 220 

LAST 

850 

32,2266 

0 6006 

1 

TC 

intphet 

1003 





32,2267 

77650 

1 

OOTO 


1004 

HBP 

8 

LAST 

853 

32,2270 

03762 

1 


SPRffiX 

1065 





32,2271 

01211 

1 

VSHOOHIB VS 

0509 




m 
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1- m.PTo 

F2000 TI« RADIUS CALLINO SlflROuriNE 


20’35 Ot?r. 28,1968 PANDORA .080 PAGE 854 
USBB.S PACE NO. 12 B? S3 


R2001 

112002 

R2004 

R200e 

R2008 

R2010 

R2011 

R2013 

R2015 

2100 

2101 

2102 

2103 

2104 

2105 

2106 
21 OT 
2108 

2109 

2110 
2111 
2112 

2113 

2114 


INPUT 

RVEC. 

WEC 

RDESIBeO 

CONICxi 

OUTPUT 

R(T2)/ 

V(T2)/ 

T12 


initial POSITICN VECTOR VEtMm 

initial velocity vector If* 

FINAL RADIUS FOR KHIQI TRANSFER TI* IS TO BE CCMPUIED DP B29 

XI SETTINO FOR CCNIC SlflROuriNES -2 = EARIH SP B14 


final POSITION vector 

final velocity vector 
transfer time to final RADIUS 


vector B 29 
vector Bt 

DP B28 






32.2272 

43020 1 

TMHADioo STO 

CLEAR 

R0P 

6 

■ last 

851 

32,2273 

03733 0 


HTBICREX 

REP 

5 

LAST 

850 

32,2274 

03666 1 


HVSW 





32,2275 

67164 0 

Axe. 2 

SXA,2 





32,2276 

20000 0 

OCT 

20000 

REP 

2 

LAST 

94 

32,2277 

02756 1 


SGNFDOT 





32,2300 

45140 0 

UtC.i 

CALL 

REP 

3 

LAST 

845 

32,2301 

03734 1 


CQ4ICX1 

REP 

1 



32,2302 

25552 1 


TIFERAD 

REP 

3 

LAST 

846 

32,2303 

27710 1 

STOVL 

V(T2)/ 





32,2304 

77628 0 

STADR 


REP 

5 

LAST 

850 

32,2305 

60121 0 

STODL 

H(T2)/ 

REP 

T 

LAST 

850 

32,2306 

00037 0 


T 

REP 

3 

LAST 

126 

32,2307 

37724 1 

SICALL T12 

REP 

7 

LAST 

854 

32,2310 

03733 0 


RIPNCKEX 


feters 

MBTERS/CS 

meters 


FETERS 

FETERS/CS 

cs 


PLooD 
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P3T.P70 


R2201 

R2202 

R2204 

R220S 

R220T 

R2208 

1U209 

B2210 

112211 

1(2212 

R2213 

1(2214 

f(2215 

1(2216 

I(221T 

1(2218 

R2219 

1(2221 

1(2223 

R222S 

1(2227 

1(2229 

1(2231 

1(2233 

1(2234 

1(2236 

1(2238 

1(2240 

1(2242 

1(2244 

2275 


USBIUS PAGB NO. 13 


B7 S3 


P3200 DISPIAY CAUCULATION SUBHOlTriNE 


DBSCRIPTICN 

Oimvr FOR DISPLAY IS CCNVERTED to proper units and PIACH) IN OUTPUT STORAGE RBOISIERS. LANDING SITE 
COMPUIATICN FOR DETERMINING LANDING SITE LATIUDE AND LCNOIUDB IS INCUIffiD IN THE ROrrlNE. 


CALLING SEOUBlCB 
L CALL 


L+l 


RTEDISP 


subroutines CALLED 
TMHADlOO 
AUGEKUCL 
LAT-LCNG 

erasable initialization required 

PUSHLIST 
NONE 
MPAC 
NONE 
OIHBR 
B(T2)/ 

V(T2)/ 

T2 

V2<Ti)/ 

V(Tl)/ 

URl/ 

LH/ 


PINAL POSITION vector 
PINAL velocity VECTOR 
PINAL TINE 

POST IMPULSE INITIAL VELOCITY VECTOR 
INITIAL velocity VECTOR 
UNIT INITIAL, vector 
UNIT HORIZCKIAL VECTOR 


OUTPUT 
VPRBD 
T3TOT4 
GAcMMAEI 
DELVLVC 
LATISPL) 
LNGL SPL) 


2276 

REP 

9 

LAST 

853 

2277 

REP 

4 

LAST 

654 

2278 





2279 





2280 

REF 

8 

LAST 

844 

2281 

REP 

3 

LAST 

846 

2282 





2283 

REP 

1 



2284 

HEP 

2 

LAST 

267 

2285 

REP 

6 

LAST 

854 


velocity MAGNITU* at 400,000 PT. ENTRY ALTITUIB 
transit time to 400,000 PT. ENTEY ALTITLCE 
FLIGHT path ANGLE AT 400,000 PT. ENTRY ALTITUDE 

initial velocity change vector in local vertical coord, vector 

LATITUDE OP THE LANDING SITE 

lcnoitude op the landing site 


V(T2) 


2286 

22865 


32,2311 

77220 

1 

RTEDISP SIU 

VLCMD 

32,2312 

03762 

1 


SPRTEX 

32,2313 

03710 

1 


V(T2)/ 

32,2314 

65256 

0 

UNIT 

POOL 

32,2315 

00045 

0 


36D 

32,2316 

17767 

1 

STOOL 

VPRED 

32,2317 

03736 

0 


T2 

32,2320 

77625 

0 

DSU 


32,2321 

03413 

1 


SPRTETIG 

32,2322 

26641 

0 

STCVL 

TSTOTA 

32,2323 

03656 

1 


R(T2>/ 

32,2324 

5 0256 

0 

UNIT 

DOT 

32,2325 

77752 

1 

Sl-i 



T21 


vector 

B29 

NETEHS 

vector 

Bt 

netehs/cs 

DP , 

B28 

cs 

vector 

Bt 

!«TERS/CS 

vector 

Bt 

W!TERS/CS 

vector 

Bi 


vector 

Bi 


DP 

Bt 

hBTERS/CS 

DP 

B28 

CS 

DP 

Bo 

REVS + AI 

vector 

Bt 

(«TEBS/CS 

DP 

Bo 

REVS 

DP 

Bo 

REVS 

DISPLAY 





ASS&eLB REVISION 249 OP AOC PROCSWM COUMSUS BV NASA 2021111-041 


L Par.PTO 


2287 





2288 

RBP 

4 

LAST 

848 

2289 

RBP 

T 

LAST 

844 

2290 

REP 

5 

last 

851 

2291 





2292 

I«P 

3 

lAST 

851 

2293 

2294 

2295 

2296 

RBP 

3 

LAST 

850 

2297 

REE 

1 



2298 

2299 
22995 

REP 

3 

LAST 

850 

2300 

REP 

10 

LAST 

485 

2301 

US' 

T 

LAST 

855 

2302 

REP 

B 

LAST 

850 

2303 





2304 

RBP 

1 



2305 

REP 

3 

LAST 

846 

2306 

REP 

5 

LAST 

855 

2307 

RBP 

12 

LAST 

850 

2308 

REE 

2 

LAST 

846 

2309 





2310 

RBP 

8 

LAST 

856 

2311 





2312 

RBP 

6 

LAST 

856 


2313 

2314 

2315 

2316 

2317 


2318 

2319 

RBP 

2 

LAST 

634 

2320 

BSP 

4 

LAST 

854 

2321 

2322 

2323 

2324 

RBP 

4 

LAST 

855 

2325 

2326 

RHP 

3 

LAST 

275 

2327 

2328 

REP 

9 

LAST 

799 

2329 

2330 

2331 

REP 

9 

LAST 

856 

2332 

REP 

7 

LAST 

856 


2333 

2334 

2335 


32.2326 

32.2327 

32.2330 

32.2331 

32.2332 

32.2333 

32.2334 

32.2335 

32.2336 

32.2337 

32.2340 

32.2341 

32.2342 

32.2343 

32.2344 

32.2345 

32.2346 

32.2347 
32 , 2350 
32 , 2351 
32 , 2352 
32,2353 
32 , 2354 
32,2355 
32,2358 
32,2357 

32.2360 

32.2361 

32.2362 

32.2363 

32.2364 

32.2365 

32.2366 

32.2367 

32.2370 

32.2371 

32.2372 

32.2373 

32.2374 

32.2375 

32.2376 

32.2377 

32.2400 

32.2401 

32.2402 

32.2403 

32.2404 

32.2405 

32.2406 

32.2407 


44328 0 
31655 0 
27771 0 
03700 0 
41451 1 
03672 1 
57441 1 
03740 1 
41515 0 
63345 0 
31677 0 
55441 0 
03746 1 
77772 0 
27405 0 
03656 1 
02657 1 
45246 0 
31723 0 
26760 1 
03710 1 
38746 1 
64272 1 
53575 0 
03656 1 
53515 0 
03710 1 
72441 0 
65336 1 
00045 0 
51525 1 
45006 0 
64075 1 
43215 0 
03724 0 
03736 0 
14003 1 
00005 1 
77TS6 0 
17403 0 
77746 1 
03401 1 
53575 0 
03658 1 
41406 0 
53515 0 
03710 1 
47315 0 
53435 0 
63361 0 


ARCCOS K>Sll 


STOVL 

IHIHB 2 

(MJMAEI 

VSU 

V2(Tl)/ 

PU91 

dot 

VITl)/ 

DCCMP 

POVL 

URl/ 

PUSH 

DLOAO 

PDVL 

DOT 

2 EHORIB 

VDEP 

VSLi 

STOVL 

LH/ 

DGIVLVC 


R(T2)/ 


STOBE RvEC 
ABvAL DSU 


30480fnE 
STOVL mesiRED 
V(T2>/ 
SlCALL WEC 



TMBADioo 

VLCrtD 

UNIT 


R<T2)/ 

POVL 

unit 


V<T2)/ 

DOT 

SLl 

ahcsin pool 


36D 

POOL 

ABS 

PUSI 

CALL 


AUGSlaXJ- 

DAO 

DAO 


T12 


T2 

STGDL 

020 


040 

SIN 


STODL 

LNGlSPL) 

COS 


STORB 

LAIN SPL) 

VLCW) 

UNIT 


H(T2)/ 

puai 

puai 

POVL 

UNIT 


V(T2)/ 

PDVL 

VXV 

VXV 

UNIT 

vxsc 

PDVI, 
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PLIOfr PATH ANGLE 12 


DV/ (LVC) 

*4444 LANDINO SITE CCMIVWTICN *4*4* 

H3,V3,T23 PH04 TIMBRAD 
UR3 

GW.VM4E=AflCSIN(UR3 . UV 3 ) 

V(T3» 

PHIB 
T23 

T<LS>=:T2+T23*TE 

LNG( SPl,)=SINf PHIE) 

LAT< SPL) =COS f PH IB ) 

PI-220 

lIl3=lNIT(im3 X UV3 X UR3) Pl,10O 
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1 




L P3T,P70 


2338 

BEP 

4 

LAST 

858 

32.2410 

03403 0 


UKKSPL) 

233T 





32,2411 

53361 0 

VX3C 

VAD 

2338 

BBP 

10 

LAST 

856 

32,2412 

03401 1 


LATISPL) 

2340 





32,2413 

43014 0 

CLEAR 

CLEAR 

2341 

RBP 

11 

LAST 

T99 

32,2414 

00662 0 


BRADFIAG 

2342 

BEP 

20 

lAST 

799 

32,2415 

01663 0 


LUNAFLAG 

23425 

BEP 

14 

lAST 

846 

32,2416 

16152 0 

STODL 

ALPKAV 

2343 





32,2417 

77624 1 

CALL 


2344 

REP 

8 

LAST 

758 

32,2420 

26322 0 


IAT-LQ« 

2345 





32,2421 

77745 1 

DLOAD 


2346 

REP 

12 

LAST 

799 

32,2422 

01104 0 


LAT 

234T 

BEP 

11 

LAST 

857 

32,2423 

17401 1 

STODLi 

LATISPL) 

2348 

REP 

T 

LAST 

601 

32,2424 

01106 1 


LQ(0 

2349 

BEP 

5 

LAST 

857 

32,2425 

37403 1 

SlCALL LNO(SPL) 

2350 

REP 

10 

LAST 

855 

32,2426 

03762 1 


SPRIEX 

2400 

REP 

2 LAST 

852 TO 

857’ 

106 106* 

COIKW SS/RIE 


USeiUS PACE NO. 15 Bj 


KLS) IN MPAC 

ALPHAv=UR 3C COSPHIB) ♦OH3 f SINPHIE) 

LATITVBB LANDING SITE ***** 
LCNGIUBB LANDING SITE ***** 


S3 

fU)4D 

PL02D 
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P3T,PT0 

INITIAL VECTOR SIBROUTINE 
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*2501 

*2502 

*2504 

*2505 

*2500 

R250T 

*2508 

*2509 

*2510 

*2512 

*2513 

*2514 

*2515 

*2510 

*251T 

*2518 

*2519 

*2520 

*2522 

*2523 

*2524 

*2526 

*2528 

*2530 

*2532 

*2534 


dbscripticn 

A PHECISICW INffiOHATIOI OP THE SWIE VECTOR TO THE TI* OP IGNITICN ISPEHPtlMD.PI®CCMPl7IATICN3 OCCUR. 

CALLING sequence 
L CALL 

l-H INVCioo 

normal exit mcbe 

at L+2 op CAILING SEQiBJCE with MPAC = 0 
alarm exit mode 

at L*2 op calling SEOKCB with MPAC = OCTAL fli2 POR STATE VECTOR IN MOCNS SPHERE OP INPUJENCE 

SIBHOUTINES CALLED 
CS4PRBC 

ERASABLE INITIALIzATICN REQUIRED 
PUSILIST 
NONE 
MPAC 
NONE 
OIHER 

SPRTETIO Tim OP IGNITICN 
C94 state vector 


OUTPUT 

RITT)/ 

V(Tl)/ 

Tl 

URl/ 

IH/ 

CPPA 


INITIAL POSITICN VECTOR AT TIG 
INITIAL VEIXJCITY VECTOR AT TIG 
INITIAL VECTOR TIME (TIO) 

ULIT INITIAL VECTOR 

UNIT HORIzCNTAL VECTOR 

COSINE OP WITIAL FLIGHT PATH ANGLE 


DP 

*28 

cs 

vector 

*29 

wetrrs 

vector 

*7 

MeiBRS/CS 

Dp 

*28 

Cs 

vector 

*1 


vector 

*1 


DP 

*1 




2600 





32,2427 

71220 1 

INvCioo STO 

DLOAD 

2601 

HEP 

11 

LAST 

857 

32,2430 

03762 1 


SPRTEx 

2602 

HEP 

2 

LAST 

855 

32,2431 

03413 1 


wrtetio 

2603 

REP 

44 

LAST 

734 

32,2432 

34041 0 

STCALL 

TDECi 

2604 

REP 

6 

LAST 

698 

32,2433 

27022 1 


csmprec 

2605 





32,2434 

87175 0 

VLGMD 

SKA, 2 

2606 

VSF 

33 

LAST 

734 

32,2435 

00001 0 


ratt 

260T 

REP 

2 

LAST 

125 

32,2436 

03755 0 


PITT) 

2608 

REP 

4 

LAST 

850- 

32,2437 

27640 0 

STOVL 

*(TT)/ 

2609 

RHf^ 

22 

LAST 

734 

32,2440 

00007 0 


VATT 

2610 

REP 

4 

LAST 

856 

32,2441 

17672 1 

STODL 

ViTT)/ 

2611 

REP 

T 

LAST 

503 

32,2442 

00015 0 


tat 

2612 

vsy 

5 

LAST 

850 

32,2443 

03716 1 

STORE 

IT 

2813 





32,2444 

53135 0 

SIXMD 

*271 

2614 

REP 

3 

iast 

858 

32, 2445 

03756 0 


PITT) 


PRECISION INTEGRATION RO.VO TO Rl.Vl 






I 
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PST.PTO 



2815 

BSP 

1 



32,2448 

64452 

0 

2824 





32,2447 

52135 

1 

2825 

BSP 

1 



32,2450 

31736 

1 

2828 

BS' 

3 

LAST 

847 

32,2451 

74772 

0 

2850 





32,2452 

53575 

0 

2851 

BEP 

5 

LAST 

858 

32,2453 

03640 

0 

2852 

BSP 

4 

lAST 

856 

32,2454 

17740 

1 

2853 





32,2455 

00045 

0 

2854 

BEP 

4 

LAST 

845 

32,2456 

27646 

0 

2855 

BEP 

5 

LAST 

858 

32,2457 

03672 

1 

2858 





32,2460 

77656 

1 

285T 

BEP 

3 

LAST 

126 

32,2461 

03746 

1 

2858 





32,2462 

72441 

0 

2659 

BSP 

S 

LAST 

859 

32,2463 

03740 

1 

2660 

B0P 

2 

LAST 

125 

32,2464 

03757 

1 

2661 





32,2465 

45246 

0 

2662 

BEP 

1 



32,2466 

31752 

0 

2663 





32,2467 

71240 

1 

2664 

BEP 

1 



32,2470 

64477 

1 

2665 

BEP 

5 

LAST 

856 

32,2471 

31655 

0 

2866 





32,2472 

41525 

0 

2668 

BEP 

2 

LAST 

856 

32,2473 

31677 

0 

2669 





32,2474 

41466 

0 

2670 





32,2475 

77650 

1 

2671 

BEP 

1 



32,2476 

64503 

0 

2672 





32,2477 

47375 

0 

2673 

BEP 

6 

LAST 

859 

32,2500 

03740 

1 

2674 

BEP 

4 

lAST 

859 

32,2501 

03746 

1 

2875 





32,2502 

77606 

1 

2676 





32,2503 

41545 

0 

2677 





32,2504 

77244 

0 

2678 

BEP 

1 



32,2505 

64507 

1 

2683 





32,2506 

41476 

1 

2684 





32,2507 

77775 

1 

2685 





32,2510 

53435 

0 

2686 

BEP 

7 

LAST 

859 

32,2511 

03740 

1 

2687 

BEP 

4 

LAST 

856 

32,2512 

03746 

1 

2688 





32,25 1 3 

77650 

1 

2689 

BEP 

12 

LAST 

858 

32,2514 

03762 

1 


20’35 OOr. 28>19S8 »>aX»A .080 PAGE 859 




USBRaS PAOB NO. 17 

BT S3 


1MVC109 



SLQAO 

OOIO 

0CTB12 

BlEAUW 

Rl,Vl NOT IN PBOPBB SPHERE OP 

INFLUENCE 

VUMO 

UNIT 

R(Tl)/ 



STOOL 

UBl/ 

UHl/ 

Bl 


360 



STtVL 

B<Tl) 

VfTl)/ 

RCTl) 

829 

UKIT 

STORE 

W\/ 



DOT 

a.1 




UBl/ 



STOie 

CPPA 

CPPA 

Bl 

ABS 

DSU 

BPCiBlE 



EM4 

DLOAO 

lllVCllS 

1B1EB2 

NOT near BECrlLT.'lEAa 


TOOL 

PU3L 

zeBoas 



VDEP 

poar 

N/ = (0,0,1) 


GOTO 

INVCi20 



VLOAD 

vxv 

UBl/ 




ivi/ 



PUW 

r)lX»D 

FUST 

N/ = UR X UV 

B2 

flPL 

VLOAD 

I^«VCl25 



VCCMP 

puai 

correct n/ for hetrograde trajectory 

VUMD 

VXV 

UNIT 




URl/ 



STORE 

OH/ 

OH/ 

Bl 

GOTO 

WKIEX 





Assaei^ BBvISKW 24, program colossus BT KASA 2021111-0*1 PO’SS CW. 28,1968 pandora .O80 pa® B 80 


P3T,P70 


P3 OOO PRECISICW trajectory CIBfSBnffTICN SUBROUTINE' 


USERbS PAOE no. 18 


R3001 Ascription 

R3006 AS POSSIB®. ^ ^ ^ INITIAL COfIC TRAJECTORy AND «BTS THE DVD REQOIRE^ENT AS CLOSELY 

R300T 

R3010 CALLING SEQUBK® 

R3011 L CALL 

R3012 L+l PRECinj 


I 


NORMAL EXIT MCDB 

AT .L+2 a CALLING SEaiffiatB’ WITH MPAC = q 


R3015 alar* Exit mode 

II3OI6 At L+2 a calling SEOPfiSlflrE WITH MPAC = 

octal 605 KIH EXCESS ITEHATIAS 

R3018 OCTAL 613 FM HEBITRY ANGIE OUT A LIMITS 


R3019 

R3020 

R3021 

R30215 

H3022 

R3023 

113024 


subroutines CAUED 

INTSTALL 

RTENC(C2 

RTENCK3 

TIMBRAD 

PARAM 

V2T100 


erasable initializatia eeojirbd 


PUaiLIST 

NONE 

MPAC 

NCNE 

OIHER 

R(T1)/ 

V 2 <T 1 )/ 

V(TT)/ 

TT 

T12 

BCCN 

RtlT) 

XCT2) 

XlTT) 

RTEDVD 

^WMAX^ 

MAMAX2 

Al/ 

A/ 

BETAi 

PHI2 




INITIAL PdJBirrlA VECTOR 

POST IjiBBILSffi INITIAL VELOCITY VECTOR 

INITIAL nmoCITY VECTOR 

initial UffiTCOR TIME 

INITIAL TBS BTNAL POSITIA TI!« 

CCNIC FIWUL RADIUS 

MAAIlUUaC ffi' INITIAL POSITIA VECTOR 
COIANCENIT as?' FINAL FLIGHT PATH ANGLE 
COIANGESIT A INITIAL FLIGHT PATH ANGLE 
DELTA KHLinrTY ASIREI) 

MAJA AXIS (LIMIT FOR LXXVBR BOUND A GAiVOV ITERATOR 
MAJA Axis (LIMIT PA UPPER BOUND A GAMV ITERATA 

AIT lOTirnnL. vecta 

AIT HAiaawAL VECTA 

i+x(T2ima: 

PERIGEE OB AIPOGEE INDICATOR • 


VECTA B29/B27 MEIERS 
vecta Bt/bs i«ters/cs 
VB(?PA Bt/Bs MBTERS/CS 
DP B28 CS 
DP B 28 Cs 
Dp B29/B27 («TERS 
DP B29/B27 meters 

DP Bo 
DP Bs 

DP B7/B5 WflERS/CS 

Dp B30/B28 METERS 
DP B30/B28 meters 
VECTA Bi 
VECTA Bi 
DP Bi 

9P B2 -1 PERIAE,+i APCKEE 


DP 

Dp 

DP 

DP 

Dp 

DP 

Dp 

DP 

VECTA 

VECTOR 

DP 

DP 


I 
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BT S3 


V 

P3T.PT9 


USIbS PAGE NO. 19 

BMT2 

ODIPUr 





■30T9 

vttni/ 

POST IMPULSE INITIAL VELOCITY VECTOR 

vector 

bt 

EBIERS/CS 

*3013 

BCT2>/ 

PINAL POSITION vector 

vector 

B29 

MEIERS 

B39TT 

9<T2»/ 

PINAL velocity VECTOR 

vector 

Bt 

l>ETERS/CS 

BSOT* 

22 

PINAL TII« 

DP 

>28 

cajTisECxiros 

I30n 






R31M 

Draws 





■3191 

■> 

PINAL R DESIRED 

DP 

•B 29 /B 27 MEIERS 

>3111 

D/AFBB 

R/A 

DP 

Be 


>3113 

P/RPBS 

P/R 

DP 

B 2 


>3115 

>PRB 

MAGNIUDE OP B(T2)/ 

DP 

B29'^2T meters 

>311T 

XtTllPBB 

COTANGENT OP GWM4A2 

DP 

Bo 


>3119 

0212 

CORIffiCrlON TO PINAL TI« T 2 

DP 

B28 

CENTI SECONDS 

>3121 

BCOf 

PINAL RADIUS 

DP 

B 29 /B 27 ^e^ERS 

>3123 

DDCDK 

DELIA RCON 

DP 

B 29 /B 27 METERS 

>3125 








3159 





32,2515 

T1220 

1 

PREClOO 

STO 

DLOID 

3151 

w 

13 

lAST 

859 

32,2516 

03762 

1 



SPRTEX 

3159 


1 



32,2517 

31705 

1 



lORTE 

315T 

tBR 

5 

LAST 

84T 

32,2520 

17730 

0 


STOOL 

NNlA 

3158 

tey 

T 

LAST 

84T 

32,2521 

03636 

1 



BCCN 

3159 

tBP 

2 

LAST 

125 

32,2522 

03664 

0 


STORE 

BD 

3194 





32,2523 

77745 

1 

PREC 120 

DLCAD 


31945 

tBB 

1 



32,2524 

31715 

0 



2 HTEB 1 

31949 


2 

LAST 

125 

32,2525 

17650 

1 


STODL 

DT21PR 

3195 

■BP 

1 



32,2526 

31703 

1 



MlSBTE 

3169 


2 

LAST 

125 

32,252T 

37732 

0 


SICALL 

NN2 

3199 

tfOK 

1 



32,2530 

65103 

0 



HTSNCK3 

31T9 





32,2531 

77624 

1 

PREC 125 

CALL 


31T1 


1 



32,25 32 

11527 

1 



param 

31T2 





32,2533 

T7745 

1 


DL(»D 


31T3 

■BP 

2 

LAST 

94 

32,2534 

0274 2 

1 



p 

3222 

KP 

1 



32,2535 

14033 

1 


STOOL 

P/RPHE 

3223 

HP 

2 

LAST 

94 

32,2538 

02744 

1 



RlA 

3224 

HP 

1 



32,2537 

14035 

1 


STODL 

R/APRE 

3225 

HP 

1 



32,2540 

00041 

1 



Rl 

3229 

■BP 

1 



32,2541 

14031 

0 


STOOI, 

HPRE 

322T 

HP 

3 

LAST 

124 

32,2542 

03775 

1 



COGA 

3228 





32,2543 

77661 

0 


SL 


3229 





32,2544 

20206 

1 



5 

3239 

■BP 

1 



32,2545 

03724 

0 


STORE 

X(T2)PRE 

3241 





32,2546 

43276 

0 


DCCMP 

DAD 

3242 

HP 

10 

LAST 

84T 

32,2547 

03726 

1 



X(T2) 

3243 





32,2550 

45246 

0 


ABS 

DSU 

3244 

■BP 

1 



32,2551 

31760 

1 



EPC 4 HTE 

32« 





32,255 2 

50000 

1 


BOV 

BW 

32«5 


1 



32,255 3 

64555 

0 



PBEC 130 

32M 

HP 

1 



32,2554 

64736 

1 



PBEO175 

B324T 

DBSIBH) REENTRY ANGLE NOT ACHIEVED 






DT21PR = POS'Mx 
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^ B3T,P70 


3248 

3240 RBF 

3250 RBP 

3251 

3252 RBP 

3253 HEP 


last 881 


last 84T 


32.2555 

32.2556 

32.2557 

32.2560 

32.2561 

32.2562 


50145 1 
03732 1 
64583 0 
52135 1 
31735 1 
65053 1 


PRECiao OLOIO 


Pl®Ci32 SLOAD 


NN2 

PRBCi40 

ooro 

OCTB05 

PBECx 


20’35 OOr. 28,1968 PANDORA .080 PACE 862 
USERaS PACE NO. 20 E7 S3 


TOO MANY ITERATICNS 
EXIT NITH ALARM 


R3259 determine RADIUS AT miW THE DESIRED REENTRY ANGLE WILL BE ACHIEVED 


3260 

3261 

3264 

3265 

3266 
32665 
3287 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 
32685 

3289 
32895 

3290 
32905 

3291 

3292 

32923 

329235 REP 

32924 

329243 REP 
329247 REP 

32925 


REP 

8 

LAST 

861 

REP 

1 


REP 

2 

LAST 

861 

REP 

2 

LAST 

861 

REP 

3 

last 

847 

REP 

8 

LAST 

859 

REP 

1 



REP 

1 



REP 

3 

LAST 

859 

REP 

3 

LAST 

848 

REP 

1 



REP 

3 

LAST 

862 

REP 

38 

LAST 

849 

REP 

1 



REP 

2 

LAST 

861 

REP 

39 

LAST 

862 

REP 

3 

LAST 

861 


REP 


2 lAST 118 


2 LAST 881 


32.2563 

32.2564 

32.2565 

32.2566 

32.2567 

32.2570 

32.2571 

32.2572 

32.2573 

32.2574 

32.2575 
32,2578 
32,2577 

32.2600 

32.2601 

32.2602 

32.2603 
32,2804 

32.2605 

32.2606 

32.2607 

32.2610 

32.2611 

32.2612 

32.2613 

32.2614 

32.2615 

32.2616 

32.2617 

32.2620 

32.2621 
32,2822 

32.2623 

32.2624 
32,26 25 

32.2626 

32.2627 

32.2630 

32.2631 

32.2632 

32.2633 


53145 1 
03730 0 
64616 1 
42545 0 
00035 1 
52525 1 
00033 1 
41205 0 
03754 
57512 
50015 
31855 
64602 
52166 1 
64604 1 
77745 1 
31877 0 
43205 1 
03761 
31657 
80325 
00035 
00047 
77685 
52057 
20175 
64824 
60345 
00031 
00047 
53665 
03664 
20200 
45206 1 
31653 0 
77876 0 
03765 0 
71240 1 
64642 0 
03724 0 
71240 1 


1 

1 

0 

1 

1 

1 

1 

0 

0 

0 

0 

1 

1 

0 

1 


PHEC140 

PRECiso 


PRECiss 

PBECieo 


PREC162 


PRECie5 


DLCMD BzB 
NNlA 
PHEC182 

DLOAD SL4 

H/APHB 
POOL aL3 

P/HPRE 
DMP DMP 
BEWi 
SL2 DCCMP 
OAO EM4 

1RTEB2 
PHeCl55 
SORT GOTO 

PRECieo 

DLOAD 

zbrorie 

DMP DAD 
PHI2 
1BTE83 

pool norm 
r/apre 
XI 

BDOv 

SL* GOTO 
0 -4,1 
PHECies 

DLCMD NORM 
RPRE 
XI 

BDDV SL* 

BD 

0 - 1,1 

puai Dsu 

IRTESl 

DCCMP 

STORE BETA12 
DI.CMD 
PRBC168 
X<T2)PHE 
H5W DCXMD 


elliptic case 

(P/A)BBl«i 

l-(P/A)BEl)Ai=BeTO2 

BET«2*4'.5=BETA3 

beta 3=0 

1+(PHI2)CBETA3) 


PL02D 
04 PLOOD 

02 

01 


03 




(l+PHl24flBTA3)/(R/A)=BR-m4 Bl 


PLooD 


BETA4=BD/RPRE 


01 
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329253 BEP 

1 



32,2834 

64640 

1 



PRECiot 



3292ST 

REP 

3 

LAST 

862 

32,2635 

03765 

0 



BET3A12 



32926 





32,2636 

77676 

0 


DCCMP 




329265 

REP 

4 

LAST 

863 

32,2637 

03765 

0 


STORE 

BBTA12 



3292T 





32,2640 

77745 

1 

PRECiot 

IXXAD 




329275 

REP 

5 

LAST 

863 

32,2641 

03765 

0 



BEW12 



3293 





32,2642 

45246 

0 

pRECiea 

ABS 

DSO 



3294 

REP 

1 



32,2643 

31764 

0 



EPCORIE ' 



3295 





32,2644 

71240 

1 


HW 

IXX»D 



3296 

REP 

2 

LAST 

861 

32,2645 

64736 

1 



PHECits 



3297 





32,2646 

72405 

0 


BMP 

a,i 



3298 

REP 

3 

LAST 

862 

32,2647 

00031 

0 



HPRB 



3299 





32,2650 

77606 

1 


PUSH 


RP = NEW RADIUS 


3300 





32,2651 

43345 

1 

PRECito 

DLQAD 

DAD 



3301 

REP 

4 

LAST 

862 

32,2652 

03732 

1 



NN2 



3302 

REP 

2 

LAST 

847 

32,2653 

31675 

1 



1B1EB28 



3303 

REP 

5 

LAST 

863 

32,2654 

03732 

1 


STORE 

NN2 



3304 





32,2855 

43175 

0 


VLOAD 

fflT 



3305 

REP 

10 

LAST 

656 

32,2656 

03656 

1 



B(T2)/ 



3306 

REP 

6 

LAST 

854 

32,2657 

03466 

0 



RYS* 



3307 

HEP 

9 

LAST 

856 

32,2660 

26657 

1 


STCVL 

RVEC 



3308 

REP 

8 

LAST 

856 

32,2661 

03710 

1 



V(T2)/ 



3309 





32,2662 

77765 

0 


SIGN 




3310 

REP 

6 

LAST 

863 

32,2663 

03765 

0 



BSTAiz 



3311 

REP 

13 

LAST 

856 

32,2664 

16746 

0 


STCDL 

wee 



3312 

REP 

2 

LAST 

862 

32,2665 

31653 

0 



iHlEBi 



3313 





32,2666 

57565 

0 


SIGN 

DCCMP 



3314 

REP 

7 

LAST 

863 

32,2667 

03765 

0 



BETA12 



3315 





32,2670 

71354 

0 


LXA,2 

DLOW) 



3316 

REP 

287 

LAST 

853 

32,2671 

00154 

1 



MPAC 



3317 





32,2672 

67140 

0 


LXC.i 

SXA,2 



3318 

REP 

4 

LAST 

854 

32,2673 

03734 

1 



CCNICXI 



3320 

REP 

3 

LAST 

854 

32,2674 

02756 

1 



SGNBDOT 



3321 

REP 

4 

LAST 

856 

32,2675 

36760 

0 


SICALL HDBSIRED 

CCMPUIE DT12 (CORHECTICN TO TI^« OP 

3322 

REP 

2 

LAST 

854 

32,2676 

25552 

1 



TIf«RAD 

NEW RADIUS) 


3323 





32,2677 

75 345 

1 


DLOAD 

SIGN 



3324 

REP 

8 

LAST 

854 

32,2700 

00037 

0 



T 



3325 

RH' 

8 

LAST 

863 

32,2701 

03765 

0 



BETA12 



3326 





32,2702 

60325 

0 


POXj 

NORM 

DT21=(PHI4)DT21 

PL02D 

3327 

REP 

3 

LAST 

861 

32,2703 

03650 

1 



DT21PR 



3328 

REP 

40 

LAST 

862 

32,2704 

00047 

1 



XI 



3329 





32,2705 

53665 

1 


BD*V 

SL* 



3330 





32,2706 

00001 

0 



OOD 



33305 





32,2707 

20176 

0 



0 -3,1 



3331 





32,2710 

50006 

1 


puai 

BW 

BBT«13=(DT21 ) /CDT21PR) 

H3 P14)4D 

33315 

REP 

1 



32,2711 

64716 

0 



PREC172 



3332 





32,27 1 2 

65345 

0 


DtXWD 

PDOI, 

BB1Ai4=1 

Bo PL04D 

3332S 

RKP 

2 

t^ST 

861 

32,2713 

31715 

0 



2KreBl. 



3333 





32,2714 

77650 

1 


GOTO 





33335 REP 1 32,2715 64720 0 



PBEC173 
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L P3T,PT0 


3334 
33345 

3335 
33355 
3330 
33365 
3337 
333T5 


US' 2 LAST 862 


3338 
33385 

3339 
33395 

in' 

4 LAST 

B63 

3340 

BBP 

5 LAST 

864 

3341 

3342 

KBP 

1 


3343 

3356 

RQ' 

1 


3357 

REP 

4 LAST 

863 

3358 

3359 
3380 

RH» 

4 LAST 

862 

3361 

HEP 

1 


3362 

BBP 

1 


R3363 

3364 

desired RADIUS HAS 1 

3365 

RBP 

7 LAST 

862 

3366 

3367 

RBP 

1 


3368 

BBP 

2 UST 

861 

3369 

3370 

BBP 

1 


3371 

BBP 

4 LAST 

84T 

3372 

3373 

BBP 

5 LAST 

864 

3374 

REP 

15 last 

789 

3375 

33755 

3378 

33765 

RBP 

4 LAST 

847 

3377 

REP 

3 LAST 

663 

33775 

3378 

RBP 

1 


33785 

3379 

REP 

4 LAST 

864 

33795 

3380 

REP 

1 


33805 

REP 

3 LAST 

863 


32.2716 

32.2717 

32.2720 

32.2721 

32.2722 

32.2723 

32.2724 

32.2725 
32,2728 
32,2727 

32.2730 

32.2731 

32.2732 

32.2733 

32.2734 

32.2735 

32.2736 

32.2737 

32.2740 

32.2741 

32.2742 

32.2743 

32.2744 


05345 
31707 
45271 
00003 
31657 
71240 
64730 
77605 1 
03650 1 
00001 0 
41545 0 
00001 0 
37650 0 


PREC172 DUMD reot, 

M.6KIB 

raBCi73 nv DSU 
02D 
IBIE83 
DLCMD 
PHEC174 


EMl 

DMP 


65065 1 
77650 1 
64531 1 
45345 1 
00031 0 
03664 0 
51406 1 
50025 0 
31766 1 
65037 0 


3381 


32.2745 

32.2746 

32.2747 

32.2750 

32.2751 

32.2752 

32.2753 

32.2754 

32.2755 
32,2758 
32,2757 
32,2760 
32,2781 

32.2762 

32.2763 

32.2764 

32.2765 
32,2786 
32,2767 

32.2770 

32.2771 

32.2772 

32.2773 

32.2774 


53145 

03730 

84560 

53025 

31705 

65005 1 

45345 1 

03670 

00031 

55301 

00050 

03666 

41457 

57600 

40015 

31653 

64772 

45248 

31653 

77640 

64775 

57545 

31715 

77725 


DT21PH 

STQRB OOD 
PHBC174 DUMO PUSH 
OOO 

SlCAU, DT21PR 

RISNCK2 

GOTO 

PRECizs 

PBeCi75 DUMD DSU 
HPHE 
PD 

Puai AHS 
DSU 

EpCtrtE 

PBEC220 


DUMD BZB 
NNlA 
PH0C132 
DSU Bz8 
lOKie 
PREC207 

PREC205 DUMD. DSU 
RPRE, 
RPHE 
NORM BDDv 
X2 

dbccn 

SL* PUSH 

0 - 2,2 

DAO BCV 

iKIEBi 
PREC205,M 
ABS DSU 

iKTCBl 




PREC205M DIXMD 


PDD(, 


PBEC2O6 

DCC>n> 

2RTCB1 
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®TAi4=.6 Bo PL 04D 


DT21=<BBXA14)DT21PR 


B28 


RPRE-FD = HERR 


TOO MINY ITERATICNS 

not pirst pass op ITCRATICN 
RPHE,-RPHB B 29/B27 

DrCCN/(RPRB.-RPRE)=s B 2 

S OR +4 OR LS -4 



S OR 0 OR LS -4 
S=-4 


B2 
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I 



L P3T,P70 


33815 





32.2TT5 

41345 

0 

PREC208 

DLCAO 

DMP 

3382 





32,27T6 

T7T12 

0 


SL2 


33825 

REF 

5 

LAST 

864 

32.2TTT 

03666 

1 


STORE 

DRCCN 

3383 





32,3000 

TT615 

0 


DAD 


3384 

REF 

8 

LAST 

861 

32,3001 

03636 

1 



RCCN 

3385 

REF 

9 

LAST 

865 

32,3002 

03636 

1 


STORE 

FCCN 

3388 





32,3003 

T7650 

1 


OOTO 


338T 

REF 

1 



32,3004 

65024 

1 



PHEC210 

3388 





32,3005 

63545 

0 

PREC207 

DUMD 

DSO 

3389 

REF 

5 

LAST 

864 

32,3008 

03664 

0 



H) 

3390 





32,3007 

70501 

1 


NOEM 

SRl 

3391 

REP 

41 

LAST 

863 

32,3010 

00047 

1 



XI 

3392 





32,3011 

60325 

0 


POOL 

NORM 

3393 

REF 

8 

LAST 

864 

32,3012 

00031 

0 



RPBE 

3394 

REF 

18 

LAST 

864 

32,3013 

00050 

1 



X2 

3395 





32,3014 

55260 

0 


XSU.l 

BDOV 

3398 

REF 

IT 

LAST 

865 

32,3015 

00047 

1 



X2 

339T 





32,3018 

77657 

0 


SB* 


3398 





32,3017 

20600 

0 



0 -1,1 

3399 

US' 

10 

LAST 

865 

32,3020 

03636 

1 


STORE 

RCCN 

3400 





32,3021 

77625 

0 


DSU 


3401 

REF 

8 

LAST 

865 

32,3022 

03664 

0 



RD 

3402 

REF 

8 

LAST 

865 

32,3023 

03666 

1 


STORE 

DRCCN 

3403 





32,3024 

77745 

1 

PREC210 

DLOID 


3404 

REF 

T 

LAST 

865 

32,3025 

00031 

0 



RPRB 

3405 

REF 

5 

LAST 

864 

32,3026 

17670 

0 


STOOL 

RPBE, 

3408 

REF 

8 

LAST 

864 

32,3027 

03730 

0 



NNlA 

340T 





32,3030 

77625 

0 


DSU 


3408 

REP 

3 

LAST 

863 

32,3031 

31675 

1 



IKTEB28 

3409 

REP 

9 

LAST 

865 

32,3032 

37730 

1 


STCALL 

NNlA 

3410 

REF 

2 

LAST 

845 

32,3033 

65136 

0 



V2T100 

3411 





32,3034 

52030 

0 


BHIZ 

GOTO 

3412 

REF 

1 



32,3035 

64523 

1 



PBBC120 

3413 

REF 

2 

LAST 

662 

32,3036 

65053 

1 



PHBCx 


R3414 DGSIRHD RADIUS ACHIEVED 


3415 





32,3037 

45345 

1 

PRBC220 dloid 

DSU 

3416 

RBP 

11 

LAST 

861 

32,3040 

03726 

1 


X(TZ) 

3417 

RE3^ 

3 

LAST 

862 

32,3041 

03724 

0 


X<T2)PBE 

3418 





32,3042 

45246 

0 

ABS 

DSU 

3419 

RBP • 

1 



32,3043 

31770 

0 


EPCgBTE 

3420 





32,3044 

67240 

0 


SIX»D 

3421 

RBP 

1 



32,3045 

65051 

0 


PREC225 

3422 

REP 

1 



32,3046 

31737 

0 


0CTB13 

3423 





32,3047 

7T650 

1 

GOTO 


3424 

REF 

3 

LAST 

865 

32,3050 

65053 

1 


PRECx 


USEBoS PACE NO. 23 BT S3 

DRCCHrS(RBRR) B29 

BCCN+DHCCN=BCCN 

FIRST PASS OF ITERATION 


HD^+a/HPRErRCCN 

RCCN-RD=DHCCN 

PREPARE FOR NEXT ITERATION 


IF REENTRY ANC5E aiT OF UIMITS 



R3425 DESIRED FINAL, ANGLE HAS BEEN BEACHED 


i 


ASSMLE IBvisICW 249 OP AOC PaOGBAM COLOSSUS BY MASA 2021111-041 
P 3 T,P 70 


3429 

3430 

3431 

3432 


REP 4 lAST 862 
REE 14 LAST 861 


32,3051 TTT45 1 PRBC 225 OLOU) 

0 ffifWnB 

32,3053 TT650 1 Pi«Cy OOIO 

32|3054 03762 1 SPRI6X 
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AS3EI«L8 revision 249 OP AOC PROQEIAM COLOSSUS BY NASA 2021111-041 


20*35 OCT. 28jl968 PANDORA .080 PACE B6T 



P3T,P70 


USEIbS PACE NO. 25 


ET S3 


P3800 

1NTECJ3ATION CALLING SUBROUTINE 




113801 

description 




113802 

PEHTORMS CONIC AND PRECISION INTEGRATIONS USING SlERCUTINE INTECSIVS. 

THERE ARE THREE SNTRANCES 

R3804 

RTS5«iC2 and RIENCK 3 ) tor DIPPERHIT SOURCES OP INPUT AND DIPPERB^T OPTICNS. THERE IS A 

COMCN set I 

R3806 

WHICH INCLUDES SET UP OP INPUT POR THE PARAM SlBRDUTINE 




R380T 

RiaiCKl (CONIC INTEGRATION) 




R3808 

CALLING SEOUEJCCE 




R3809 

L CALL 




R3810 

L+1 RTBICKI 




R3811 

erasable INITIALIZATION REOUIRBD 




R3812 

SAfC AS POR THE RlPHCKs ENTRANCE 




83813 

RIENCH 2 (PRECISION INTEGRATION) 




R3814 

CALLING SEQOOfCE 




R3ais 

L CALL 




R3816 

L+l RT»ICK2 




R381T 

ERASABLE INITIALIZATION REQUIRED 




R3818 

PUSILIST 




R3819 

PUSHLCC-2 INTEGHATICH TIME DT12 (CORRECTION TO T2) 

DP 

B 28 

CS 

B3821 

OIHER 




R3822 

R(T2)/ PINAL POSITION VECTOR 

VE(TtOR 

.829 

MEIERS 

83824 

V(T2)/ PINAL VELOCITY VECTOR 

VECTOR 

bt 

)«IERS/CS 

R3826 

T2 PINAL TIME 

DP 

B28 

CS 

113828 

RTENCK3 (PRECISION INTEGRATION) 




R3829 

CALLING SEQUENCE 




R3830 

L CALL 




R3831 

L*-! RTENCK3 




R3832 

erasable INITIALIZATION REQUIRED 




R3834 

R(Tl)/ INITIAL POSITION VECTOR 

VECTOR 

B 29 

f«IERS 

R3836 

V2(TT)/ POST IMPULSE INITIAL VELOCITY VECTOR 

vector 

Bt 

M/CS 

K3838 

Ti initial vector TIi« 

DP 

B28 

CS 

83840 

T2 PINAL TII« 

DP 

B28 

CS 

83842 

EXIT MODE 




83843 

AT Lf2 OP CALLING SEQUENCE 




83844 

subroutines called 




83845 

INTSTALL 




83846 

INTEGRVS 






R384T OUIPUT 
R3e48 PUSHLIST 


L 
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1(3849 

il38Sl 

R3B53 

R3854 

R38S6 

lt385T 

R3858 

R3859 

1(3861 

389T 

3898 

3899 

3900 

3901 

3902 

3903 

3904 
1(3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3919 

1(3920 

3921 

3922 

3923 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 


PUSHLOC-6 PINAL POSITION VECTOR R(T2)/ 

XI COIICs MnABLB ENTRY POR EARDf (-2) 

MPAC 

PINAL velocity VECTOR V(T2)/ 

other 

R(T2l/ AS IN PUaiLIST 

V(T2»/ AS IN NPAC 

T2 PINAL 


REP 

8 

LAST 

854 

32.3055 

32.3056 


IS 

last 

024 

32,3057 

REP 

0 

LAST 

859 

32.3060 

32.3061 

REP 

10 

LAST 

601 

32,3082 

REP 

1 



32.3063 

32.3064 


45020 

1 

RIBIQCl STQ 

CALL 

03733 

0 


RTPNQgEX 

27371 

1 


INTSWLL 

43175 

0 

VLOID 

ffiT 

03640 

0 


HITT)/ 

01473 

0 


INTYPPLO 

77650 

1 

OOTO 


65111 

0 


RIBICKsB 


32.3085 

HEP 9 LAST 868 32,3068 

BEP 19 LAST 868 32.3067 

32,3070 

REP 11 LAST 868 32,3071 

REP 11 LAST 863 32,3072 

REP 10 LAST 503 32,3073 

REP 9 LAST 88 3 32,3074 

REP 9 LAST 503 32,3075 

REP 5 LAST 856 32,3076 

REP 10 LAST 503 32,3077 

32.3100 

32.3101 

1 32,3102 


45020 

1 

RlPNqC2 STO CAIL . 

03733 

0 

(oeiCiGEx 

27371 

1 

INTSWLL 

77214 

0 

CLEAR VLOID 

01673 

1 

INTYPPLO 

03656 

1 

R(T2)/ 

255 35 

0 

STOYI. HCv 

03710 

1 

V<T2)/ 

15543 

1 

STOM, VCV 

03736 

0 

T2 

01517 

0 

STORE TBT 

77815 

0 

DAD 

77650 

1 

OOTO 

85117 

0 

BIB(CiG3D 


REP 

10 

LAST 

868 

REP 

20 

LAST 

868 

REP 

T 

LAST 

868 

REP 

12 

LAST 

868 

REP 

11 

LAST 

668 

REP 

6 

LAST 

856 

REP 

10 

LAST 

868 

REP 

6 

LAST 

858 

REP 

11 

LAST 

868 

REP 

6 

lAST 

868 

REP 

45 

LAST 

858 


32,3103 

45020 

1 

RTENCK3 STO 

CALL 

32,3104 

03T33 

0 


RlENCl®c 

32,3105 

27371 

1 


INTSWU, 

32,3106 

43175 

0 

R1ENQ<3A VIXMD 

CLFAR 

32,3107 

03640 

0 


RlTl)/ 

32,3110 

01673 

1 


INTYPPLO 

32,3111 

255 35 

0 

RIENCK3B STOVL 

BCv 

32,3112 

03700 

0 


V2(Tl)/ 

32,3113 

15543 

1 

STODL 

vCv 

32,3114 

03716 

1 


TT 

32,3115 

15517 

0 

STCDL 

THT 

32,3116 

03736 

0 


T2 

32,3117 

00041 

1 

RTENCK3D STORE 

TDECi 

32,3120 

45014 

0 

CliMR 

CAIL 


USERaS PAGE NO. 26 E7 83 

VECrrOR B29 NEIEHS 
SP Bi4 

vector Bt M/CS 

Dp B28 CS 
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L P3T,PT0 


3936 

REP 

11 

LAST 

504 

32,3121 

00263 

0 

393T 

Bap 

« 

LAST 

503 

32,3122 

27066 

1 

3938 





32,3123 

77775 

1 

3939 

BBP 

34 

LAST 

858 

32,3124 

00001 

0 

3950 

BBP 

12 

LAST 

868 

32,3125 

03656 

1 

3951 





32,3126 

70125 

0 

3952 

BBP 

8 

LAST 

858 

32,3127 

00015 

0 

3953 

BBP 

5 

LAST 

863 

32,3130 

03734 

1 

3954 

BBP 

T 

LAST 

868 

32,3131 

27736 

0 

3955 

RBP 

23 

LAST 

858 

32,3132 

00007 

0 

3950 

REP 

10 

LAST 

868 

32,3133 

03710 

1 

395T 





32,3134 

77650 

1 

3958 

REP 

11 

lAST 

868 

32,3135 

03733 

0 



USSkS PAOB NO. 2T Bt S3 

MOCKPIAO 

INTE0BVS 

VLQTO 

RATT 

STORE R(T2)/ 

POOL IXC.I 
WT 

CCNICXI 
STOVL T2 

VATT 

STORE V(T2)/ 

GOTO 

Rl&JCKEx 
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P4000 V2«T1) COMPUIATICN SOBROUTINB 

B4001 DGsCrIPTICN 

Moot and CCNSEauENlt,Y fuel. - 0 >, a V2(T1) is CCMPuieD MflQl minimizes the IMPULSE (IV) 


MOOS 

M009 

MOlO 

Moil 

M012 

M013 

M014 


CALLING SBQIENCS 
L CALL 
L+1 V2T1OO 

N0HM4L EXIT MODE 

at L*2 op CAILINO SEauENOB WITH MPAC r 0 
alarm EXIT MODE 

at Lt2 OP CAILINO SEaENCE WITH MPAC = OCTAL 605 POH EXCESS ITEHATICNS 


MOIS 

subroutines 

M016 

OANDVIO 

MOIT 

XTlLIM 

M018 

DvCALC 

M019 

erasable ini 

M020 

PUSHLIST 

M021 

NGNE 

M022 

MPAC 

M023 

NCNE 

M024 

OIHER 

MO 25 

R(Tl) 

M02T 

HCCN 

Ma29 

V(T1)/ 

M031 

RIEDVD 

M033 

URl/ 

M035 

IH/ 

Most 

X(T2) 

M039 

X(TT) 

M041 

CFPA 

M043 

mamaxi 

M04S 

MAMAX2 

M049 

PHI2 

M051 

Nl 

M053 

« 

M054 

OUTPUT 

M055 

V2(Tl)/ 

MOST 

DV 

M059 

X(TT) 

M081 

PCOL 

M063 

MOOT 

BETAi 


WOflTUDE OP initial POSITICN VECTOR 

M4CWIHX)E OP PINAL POSITICN VECTOR 

INITIAL velocity VECTOR 

delta velocity DESIRHO 

UNIT INITIAL VECTOR 

UNIT HORIzCNlAL VECTOR 

COIANC32NT OP PINAL PLICHT PATH ANGIE 

TOIANIELT op initial PLICHT PATH ANGLE ( INPUT POR PREC) 

COSINE OP initial FLIGHT PATH ANGLE 

MAJOR AXIS LIMIT POR LOWER BOUND CN CSAMV ITERATOR 

major Axis limit por upper bound cn qamv iterator 
RH aiTRY near perigee OR APOGEE INDICATE (RTE ONLY) 
COLIC OR PRECISION IlERATIOf COUNTER 

POST IMPULSE INITIAL VELOCITY VECTOR 
INITIAL velocity CHANGE 

CXJIANCHNT OP INITIAL FLIGHT PATH ANGLE (POST IMPULSE) 

SBNI-LATUS RECnUM 

1+X(T2)4=42 


DP 

DP 


B29/B27 meters 

B29/B27 MEIERS 



vector 

Bt/Bs 

I«1ERS/CS 

DP 

Bt/B5 

MEIERS/CS 

vector 

Bl 


VECTOR 

bi 


DP 

Bo 


DP 

B5 


DP 

Bl 


DP 

B 30 /B 28 meters 

DP 

B30/B2S INTERS 

DP 

B2 

-1 PERIGEE, +i APOGEE 

DP 

028 

negative CCNIC,PLUS PREC 

vector 

BT/B5 

^«^EHS/CS 

DP 

Bt/Bs 

i>eTERS/CS 

DP 

B5 


DP 

B28/B26 

!«TERS 

Dp 

Bl 
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Et S3 


lUOOS 

R4069 

R40T0 

IU0T4 

lUOTO 

iU0T8 

R4080 

IU082 

R4084 

R4088 

R4088 

R4089 

R4090 


DEBRIS 

PUSCLIST 

OOD 

020 

050 

080 

lOD 

120 

140 

160 

3lD 

320 

330 


XCTl>,,=PBEYiaj3 PRECISION X(Tl) DP Bs 

mBWl=BHTA5«AMaDA-l TP Bit 

1I®IA2=2«l<Tl)«LA>!aDA-ll TP B38/B36 

•lHBTA3=,'4m'.5/R(Tl) DP B-4/B-5 

X(Tl>NI»=ua3H BOUND CN X<Tl) IN GIA^ev ITEHATOR DP B5 

DXCTl>XAX=MAxn*M DELTA XCTl) DP B5 

X(TllKAX=UPPER BOH® ON X<Tl) IN OVCV ITEHATOR DP B5 

OXCTllxIlEKATCSl INCREMENT DP B5 

QAMVlO subroutine RETURN ADDRESS 
DVCALC subroutine RETURN ADDiffiSS 
V2T100 subroutine RETUW ADDRESS 



4100 





32,3138 

T7620 

0 V2T100 

STO 


4101 





32,313T 

00041 

1 


33D 

4104 





32,3140 

43001 

1 

setpd 

CLEAR 

4105 





32,3141 

00001 

0 


0 

4106 

REE 

1 



32,3142 

00272 

0 


P2RTE 

410T 





32,3143 

60345 

0 

DtXlAD 

NCfM 

4108 

REP 

11 

LAST 

865 

32,3144 

03636 

1 


RCCN 

4109 

REP 

42 

LAST 

865 

32,3145 

00047 

1 


XI 

4110 





32,3146 

60325 

0 

PDDL 

NORM 

4111 

REP 

5 

LAST 

859 

32,314T 

03646 

0 


R(Tl) 

4112 

REP 

33 

LAST 

836 

32,3150 

00051 

0 


Si 

4113 





32,3151 

00013 

0 

STORE 

lOD 

4114 





32,3152 

56342 

1 

SRl 

DCV 

4115 





32,3153 

65260 

0 

XSU,1 

POW, 

4116 

REP 

34 

LAST 

8T1 

32,3154 

00050 

1 


Si 

411T 

REP 

12 

LAST 

665 

32,3155 

03726 

1 


X(T2) 

4118 





32,3156 

77716 

1 

DSO 


4120 





32,315T 

43342 

0 

SRl 

DAD 

4121 

REP 

5 

LAST 

864 

32,3160 

31653 

0 


IHTEBl 

4122 

REP 

4 

LAST 

862 

32,3161 

03754 

1 

STORE 

BETAl 

4123 





32,3162 

77605 

1 

DMP 


4124 





32,3163 

00001 

0 


OOD 

41245 





32,3164 

00035 

1 

STORE 

280 

41246 





32,3165 

53605 

1 

DMP 


412461 





32,3166 

00001 

0 


OOD 

412462 





32,316T 

20172 

1 


0 -T,l 

4125 





32,31T0 

45257 

0 

SL* 

DSU 

4126 





32,31T1 

20172 

1 


0 -7,1 

412T 

REP 

1 



32,31T2 

31671 

0 


IBIEBIT 

4128 





32,31T3 

65234 

1 

RIB 

PDDL 

41282 

REP 

3 

LAST 

61T 

32,31T4 

45562 

1 


TPMCDE 

41285 

REP 

6 

LAST 

8T1 

32,31T5 

31653 

0 


iRIPBi 

41287 





32,31T6 

57457 

0 

SR* 

DCCMP 

4129 





32,31TT 

20601 

1 


0,1 

41295 





32,3200 

41215 

1 

DAD 

DMP 

4130 





32,3201 

00001 

0 


OOD 


PLOOO 


Rl/RCCN = LANEDA 


l+XfT2)**2 = BETAl 


BEIAI+IA'EDA = BETAS 


Bl 


PM) 20 


Bl 


BElAs+lAMBDA-i = THETAi 


Bit PL05O 
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41302 

41305 

4130T 

RBP 

■ 8 

IAST 

871 

4131 

4132 

■BP 

4 

LAST 

871 

4133 

ter 

1 



4134 





4135 

4138 

ter 

18 

last 

865 

4137 

4138 

ter 

35 

LAST. 

871 

4139 





4140 





4141 

4142 

ter 

3 

LAST 

845 

4143 

4144 

ter 

1 



4145 

4148 

4147 

4148 

4149 

ter 

3 

LAST 

845 

4150 

4151 

ter 

2 

LAST 

872 

4152 

ter 

10 

LAST 

865 


USERaS pace no. 30 BT S3 


32.3202 

32.3203 

32.3204 

32.3205 
32,3208 
32,3207 

32.3210 

32.3211 

32.3212 

32.3213 

32.3214 

32.3215 

32.3216 

32.3217 

32.3220 

32.3221 

32.3222 

32.3223 

32.3224 

32.3225 

32.3226 
.32,3227 

32.3230 

32.3231 

32.3232 

32.3233 

32.3234 

32.3235 


03646 0 
47057 0 
20172 1 
45562 1 
77725 1 
33770 1 
70501 1 
00050 1 
56264 1 
00050 1 
00013 0 
65257 1 
57170 0 
03652 0 
41406 0 
77624 1 
56633 1 
41476 1 
40476 0 
41525 0 
03654 0 
45008 0 
56633 1 
50125 1 
03730 0 
65236 0 
77650 1 
6525 0 0 


WTlJ 

RW 

0 -7D,1 
TPMODB 


RMJB7B 
NON SRl 
X2 

X3U.2 nv 
81 
lOO 

sa* POOL 
6,2 
H4MAX1 
PUSH puai 


24B(Tl)4t{LA(eDA_i)r7HBM2 B3g/B38 PL0811 


^OM^.5/R(•n )=1HE»3 


B-4/B-5 PLIOD 


M(V«X1=MA 


XTlLIM 
dccmp push 

DCOIP SH4 
POOL puai 
M4M4X2 
PUSI CALL 

XTlLW 
POOL BW 


X<Tl)MIN 


Bs PL12D 


rO((Tl)HAx 


Bs PL 14 D 


NNlA 

V2T102 


X(Tl)MAx 


B5 PLieO 


PiMcaai here ip not precisicn ccmpuwtice 




LAST 844 


last 859 

LAST 872 


32.3236 

32.3237 

32.3240 

32.3241 

32.3242 

32.3243 

32.3244 

32.3245 

32.3246 

32.3247 


77745 1 V2T102 
036 3 2 0 
52054 1 
65243 1 
65 344 1 

50145 1 V2T105 


03757 1 
65344 1 
77650 1 
6535 2 0 


RTEDVD 
BzB GOTO 
V2T105 
V2T140 
DIXWD HM7 


CFPA 

V2T140 


V2T145 


^168 HKING A PRECISIW TOAJECTORY ITEBAtICN CCHSTOAIN THE INDBPPWvt 


last 871 

LAST 872 


32.3250 

32.3251 

32.3252 

32.3253 


47145 1 V2TH0 
31671 0 
45562 1 
65276 1 


DIXMD RTB 

1RTS)17 
TPMODB 
DCOIP POOL 


Bit P1.19C 







I 






L 

Pit. 

P70 







41T5 

HBP 

4 

lAST 

884 

32.3254 

31T15 

0 


41Te 





32.3255 

45257 

0 


41T65 





32.3256 

20601 

1 


41T7 





32.3257 

00001 

0 


41775 





32.3260 

53605 

1 


4178 





32.3261 

00035 

1 


41785 





32.3282 

20172 

1 


4179 





32.3263 

76257 

0 


41795 





32.3264 

20172 

1 


4180 





32.3265 

65234 

1 


4181 

HEP 

6 

LAST 

8T2 

32.3266 

45562 

1 


4182 

REP 

2 

LAST 

12S 

32.3267 

03722 

0 


4183 





32.3270 

00001 

0 


4184 





32.3271 

77751 

1 


4185 





32.3272 

53040 

0 


4186 

REP 

1 



32.3273 

65300 

1 


41 865 

HEP 

2 

LAST 

873 

32.3274 

65300 

1 


4187 





32.3275 

52061 

1 


4188 





32.3276 

20210 

0 


4189 

BH' 

1 



32,3277 

65311 

1 


4190 





32,3300 

50145 

1 

van 15 

4191 

RHP 

4 

LAST 

882 

32,3301 

03761 

1 


4192 

HEP 

1 



32,3302 

65322 

1 


4193 





32,3303 

77676 

0 


4194 

HEP 

5 

LAST 

873 

32,3304 

17761 

1 


4195 

HH» 

3 

LAST 

864 

32,3305 

31705 

1 


4196 

HEP 

11 

LAST 

872 

32,3306 

03730 

0 


4197 





32,3307 

77650 

1 


4198 

REP 

2 

LAST 

873 

32,3310 

65322 

1 


4199 





32,3311 

47166 

0 

V2T120 

4200 

HEP 

2 

LAST 

494 

32,3312 

45713 

0 


42005 





32,3313 

50125 

1 


4201 

HEP 

6 

LAST 

873 

32,3314 

03701 

1 


4202 

BEK 

1 



32,3315 

65330 

1 


4203 





32,3316 

45545 

1 


4204 





32,3317 

77760 

0 


4205 





32,3320 

77676 

0 


4206 





32,3321 

00013 

0 


4207 





32,3322 

53145 

1 

V2T125 

4208 

BEK 

3 

LAST 

873 

32,3323 

03722 

0 


4209 

BBP 

3 

LAST 

872 

32,3324 

65344 

1 


4210 





32,3325 

52040 

1 


4211 

REP 

4 

LAST 

873 

32,3326 

65344 

1 


4212 

REP 

2 

LAST 

872 

32,3327 

85 352 

0 


4213 





32,3330 

53145 

1 

V2T130 

4214 

REP 

4 

LAST 

873 

32,3331 

03722 

0 


4215 

REP 

1 



32,3332 

65341 

1 


4216 





32,3333 

71240 

1 


4217 

REP 

2 

LAST 

873 

32,3334 

65341 

1 


4218 





32,3335 

77626 

0 





USSUS PAGB no. 31 

Bt S3 


2 HTE 81 



Sit4 

DSU 




6.1 




OOD 



IMP 

SL4 

28D 

0 -T,l 



SAt 

TW 

0 -T.l 



RIB 

POOL 

TTMODB 

XfTl) 

BBTA5 < Z-LAPBDA) -irBBIAe 

Bit PL 19 D 

STORE 

OOD 

X(T1).. 

B5 

ILCAD 

E8M 

BZB 

V2T115 

V2T115 


PL 16 D 

S, 

GOTO 

T 

V2T120 



DLOID 

PHI2 

V2T125 



DCCMP 

STOOL 

PHI2 

lORlE 



srotB 

NHlA 



GOTO 

V2T125 



SORT 

KlB 

DPMCOe 



fCOL 

BMN 

FHI2 

V2T130 

BEW6=<=4.5=X(T1)LIM 

B 5 PL 18 D 

DIXHD 

siadr 


PLieo 

STORE 

DCCMP 

140 

X(Tl)LIM = X(T1)M»X 


STORE 

lOD 

-X(Tl)LIM = X(Tl)MIN 


IXXMD 

BzE 

XCTl) 

V2T140 




GOTO 

V2T140 

V2T145 



DIXAD 

BZE 

X<Tl) 

V2T135 




DLOVO 

V2T135 


P1,16D 

SWDB 
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3 LAST 873 


4219 

4220 

4221 REP 

4222 

4223 

4224 

4225 

4226 

4227 REP 5 LAST 073 

4228 

4229 

4230 REP 1 

4231 

4232 

4233 

4234 

4235 

4236 

4237 REP 

4238 

4239 REP 

4240 REP 


REP 6 LAST 874 


6 LAST 872 
1 


32.3336 

32.3337 

32.3340 

32.3341 

32.3342 

32.3343 

32.3344 

32.3345 

32.3346 

32.3347 

32.3350 

32.3351 

32.3352 

32.3353 

32.3354 

32.3355 

32.3356 

32.3357 

32.3360 

32.3361 

32.3362 
32,336 3 


R4241 OCKTINIK IP TIME CRITICAL MODE 


4242 

4243 REP 

4244 REP 

4245 

4246 REP 

4247 

4248 REP 

4249 REP 

4250 

4251 REP 


last 849 


LAST 873 


32,3364 

32,3385 

32.3366 

32.3367 

32.3370 

32.3371 

32.3372 

32.3373 

32.3374 

32.3375 


77784 1 


STORE 

lOD 

77650 1 


GOTO 


6535 2 0 



V2T145 

57545 1 

V2T135 

DUMD 

DCCMP 

77626 0 


SWDR 


77760 0 


STORE 

14D 

77745 1 

V2T140 

DUMD 


00013 0 



lOD 

17722 0 


STODL 

XITl) 

00015 0 



I2D 

52006 0 


PUSH 

GOTO 

65357 0 



V2T150 

77745 1 

V2T145 

DUMD 


00017 1 



I4D 

17722 0 


STODL 

XlTl) 

00015 0 



I2D 

41476 1 


DCCMP 

PUW 

77624 1 

V2T150 

CAU, 


65500 1 



OMVlO 

53145 1 


DUMD 

BzE 

03632 0 



RTHlvD 

65476 1 



V2T1X 

50025 0 


DSU 

B»t 

03706 0 



DV 

65371 1 



V2T155 

77650 1 


goto 



65424 0 
50145 1 
03730 0 
65376 


V2T155 


R42S2 IXNIC TOAJECTORY CCWPijtatICN 


4253 

4254 REP 

4255 REP 

4256 

4257 REP 

4258 HEP 

4259 

4260 REP 

4261 REP 

4262 

4283 REP 
4264 


LAST 874 


LAST 074 


LAST 

LAST 


872 

874 


3 LAST 874 


32. 3376 

32.3377 

32.3400 

32.3401 

32.3402 

32.3403 

32.3404 

32.3405 

32.3406 

32.3407 

32.3410 

32.3411 


77650 1 
65437 1 


53145 1 
037 2 2 0 
65404 I 
52040 
65404 
65474 
53145 
03757 
65474 
71240 
65474 
00017 


V2T175 
aXMO RvN 
NNlA 
V2Ti60 


goto 


V2Tle5 


V2T180 


V2T165 


DLOID BzE 
X(Tl) 
V2T165 
GOTO 
V2T165 
V2T300 
DUMD BzE 
CFPA 
V2T300 
DIXWD 
V2T300 
14D 




BNN 
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OSEB«S PAGE NO. 32 E7 33 
XITllLIM = XITllMIN 


PL16D 


-XlTllLIM = XITllMAx 

XITDMIN = X(Tl) 
DXITllMAx = DX(Tl) 

XITllMAx = XITl) 

JVITllMAx = DxITl) 
OOrox(Tl)-Dv ITERATOR 

EXIT IP MINI14JM FUEL MODE 


PLI8D 


PLI8D 
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P3T,PT0 


4205 

HEF 

8 

lAST 

874 

32,3412 

17722 

0 

STCDL 

XCTl) 

4206 





32,3413 

00015 

0 

DCCMP 

1^ 

4207 





32,3414 

77676 

0 

16D 

4268 





32,3415 

34021 

0 

SlCALL 

4209 

RES' 

2 

LAST 

874 

32,3416 

65500 

1 


QAMVlO 

4270 





32,3417 

45345 

1 

DLCMO 

DSU 

4271 

REF, 

T 

LAST 

874 

32,3420 

03632 

0 


KSIX/D 

4272 

REF 

4 

LAST 

874 

32,3421 

03706 

0 


IV 

4273 





32,3422 

77640 

0 

{M4 


4274 

RESF 

4 

LAST 

874 

32,3423 

65474 

0 


V2rr3oo 

1 4279 





32,3424 

71214 

0 V2T175 

ffiT 

DLCAD 

1 4280 . 

REF 

2 

LAST 

871 

32,3425 

00072 

1 


F2HTE 

4281 

REP 

t 

LAST 

875 

32,3426 

03722 

0 


XITT) 

4282 





32,3427 

14017 

1 

STOOL 

14D 

4283 





32,3430 

00015 

0 


120 

4284 





32,3431 

77676 

0 

DCCMP 


4285 





32,3432 

34021 

0 

SlCALL leD 

4288 

REF 

3 

LAST 

875 

32,3433 

85500 

1 


OAMVlO 

4287 





32,3434 

50145 

1 

DU»D 

(MI 

42875 

REP 

13 

LAST 

874 

32,3435 

03730 

0 


IMlA 

4288 

REP 

S 

LAST 

675 

32,3436 

65474 

0 


V2T300 
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USEB.3 PACB NO. 33 BT S3 

XtTl)MAX=X(Tl) 

-DX(Tl)MAX=OX(Tl) 


X<Tl)=X(TDMAX 

-DX(Tl)HAX=DXCTll 


R42885 PHEverr A LARGE CHANGE IN INDEPENDENT VARIABLE IXIRI^«3 AN ITERATICN FOR A 
IU280S1 precision TRAJECTORY 


4289 





32,3A37 

45345 

1 

V2T185 

DLOAD 

DSU 

4290 

HEP 

10 

LAST 

875 

32,3440 

03722 

0 



X<Tl) 

4291 





32,3441 

00001 

0 



OOD 

4292 





32,3442 

65246 

1 


ABS 

ICIOL 

4293 





32,3443 

00015 

0 



120 

4294 





32,3444 

44352 

0 


Stl 

BDSU 

4295 





32,3445 

71240 

1 



DLOU) 

429S 

BBP 

6 

LAST 

875 

32,3446 

65474 

0 



V2T300 

4297 





32,3447 

00001 

0 



OOD 

4298 

BEP 

11 

LAST 

875 

32,3450 

03722 

0 


STORE 

XITT) 

4299 





32,3451 

50025 

0 


DSU 

HW 

4300 





32,345 2 

00017 

1 



14D 

4301 

REP 

1 



32,345 3 

65461 

1 



V2T195 

4302 





32,3454 

77745 

1 


DLOAD 


4303 





32,3455 

00017 

1 



14D 

4304 

REP 

12 

LAST 

875 

32,3456 

03722 

0 


STORE 

XlTl) 

4305 





32,3457 

77650 

1 


GOTO 


4306 

REP 

1 



32,3460 

65472 

0 



V2T205 

4307 





32,3461 

45345 

1 

V2T195 

DIX»D 

DSU 

4308 

REP 

13 

LAST 

875 

32,3462 

03722 

0 



X«Tl) 

4309 





32,346 3 

00013 

0 



lOD 

4310 





32,3464 

52040 

1 


•I'M 

GOTO 

4311 

REP 

t 



32,3465 

65467 

1 



V2T200 

4312 

REP 

2 

LAST 

875 

32,3466 

65472 

0 



V2T205 

4313 





32,3467 

77745 

1 

V2T200 

DIXWD 



/xcni-xcn).,/ = bewt 


CONTINUE IF BEWt LARGER THAN 2DX(Tl)f4AX 
XITT),, = XITT) 


X(Tl)MAx = X(Tl) 
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4314 

4315 

4316 
431T 

4318 

4319 

4320 

4321 


HEP 14 lAST 875 


RBP 


HEP 5 LAST 866 


32.3470 

32.3471 

32.3472 

32.3473 

32.3474 

32.3475 

32.3476 

32.3477 


00013 0 
03722 0 
77624 1 
65701 1 
77745 1 
31677 0 
77650 1 
00041 1 


V2T205 

V2T300 

V2T1X 


STORE 

CALL 

DLOIO 

GOTO 


lOO 

X<Tl) 

DVCALC 

TERQRie 


33P 
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XCTDMIN = X(T1) 
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P3T.PT0 


USSIbS PAOB NO. 35 


P4400 X<Tll-OY iterator SlBHOirriNE 


description 

COMPOIES A POST IMPULSE VELOCITY VECTOR <V2lTl»> WIW REQUIRES A MINIMIM DV. 
CALLING SEOlENCE 
L CALL 

L*l OAfCVlO 


NORMAL EXIT MODE 

AT L+2 op calling SEOUBKB 


ALARM EXIT MODE 

at V2TiX with MPAC = octal 605 POR EXCESS- ITERATICNS 


SlBRiOUrlNES CAU.ED 
DvCALC 


ERASABLE INITIALIZATION REOalRHO 


R4416 

puaiLisr 



Bit 

lt441T 

02D 

THEIA 1 =BElA5*tA'«DA-l 

TP 

IU419 

05D 

THETA 2=2*R( Tl )*( LANBDA -1 ) 

TP 

B38/B36 

■4421 

oeD 

theta 3=MLM=4= . 5 -CRC Tl ) 

DP 

B- 4 /B -5 

■4423 

lOO 

X(TT)MIN=L00EH bound on INDEpeNDENT VARIABIE X<TT) 

DP 

05 

■4425 

12D 

OXCTTIMAXrMAXiMlM DXCTl) 

DP 

05 

R442T 

14D 

X(Tl)MAX=UPPER BOUND CN INDEpaJDBIT VARIABLE X<TT) 

DP 

B5 

■4429 

15D 

dk< IT >= iterator increment 

. DP 

B5 

■4431 

WAC 





NOffi 

other 

V(TT)/ 

BTEDVD 

URl/ 

UH/ 

X(Tl) 

P2RTE 


initial velocity vector vector B 7/B5 

DELTA velocity DESIRED DP BT/Bs 

UNIT INITIAL vector VECTOR Bl 

IHIT horizontal VECTOR VECTOR Bi 

COIANGENT OF INITIAL FLIGHT PATH ANGLE (FRCM VERTICAL) DP B5 


MEIERS/CS 

>eiBHS/CS 


TL'e CRITICAL OR MINIMIM FUEL MCDE LNDICATOR 


state AREA 


0 MIN. FUEL, 1 MIN. TI«! 


OUTPUT 

V2<Tl)/ 

DV 

X(Tl) 

PCCN 


POST IMPULSE INITIAL VELOCITY VECTOR 

initial velocity change 

COIANGENT OF INITIAL FPA EEASURED FRCM VERTICAL 
SB4I-LATUS RECTUM 


VECTOR B7/B5 f«TERS/CS 

DP B7/B5 MBIERS/CS 

DP Bs 

DP B28/B26 EKTERS 


■4458 

PUSHLIST 


■4459 

OOD 

X(Tl),, 

■4462 

02D 

THBTAl 

■4463 

05D 

THETA 2, 

■4464 

OsD 

THEIA3 

■4465 

lOD 

XCTDMIN 

■4466 

I2D 

DXCTl )MAX 




I 




L 
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R44#T 

R4488 

IU4T3 

1U4T5 

IU4TT 

R44T8 

iU4T9 

4490 

4491 

4500 

4501 

4502 

4503 

4504 

4505 

4506 
450T 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 
451T 
451T5 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 


X(Tl)mx 

PXCTl) 

iv.rpiffivious cv 

BBW9=X( Tl ) *1 . 1PX( Tl ) 


20’35 OCX, 28,1988 PANDOBA .080 PACE 878 
U3BB«S pace no. 36 S3 


REP 2 IAST 


REP 1 


REP 1 


HEP 1 


HEP 1 


REP 2 last 


OAMVlO subroutine RETURN ADDRESS 


DvCALC SlSKOUriNE RETUroi ADDRESS 


V2T100 subroutine RETURN ADDRESS 



32,3500 

77620 0 OVtVlO 

STQ 



32,3501 

00037 0 


3lD 


32,3502 

45001 1 

SETPD 

CAU, 


32,3503 

00023 0 


18D 

876 

32,3504 

65701 1 


DVCALC 


32,3505 

45 345 1 

DLOID 

DSU 


32,3506 

00017 1 


I4D 


32,3507 

00013 0 


lOD 


32,3510 

77600 1 




32,35il 

65531 0 


OVfVM 


32,3512 

45206 1 

PUSH 

DSU 


32,3513 

31772 1 


BPC9HIB 


32,3514 

71240 1 

H*l 

DLOW 


32,3515 

65677 1 


m.vi)9x 


32,3516 

00023 0 


18D 


32,3517 

50025 0 

DSU 



32,3520 

00015 0 


I2D 


32,3521 

655 25 0 


OWVIS 


32,35 22 

52001 1 

SETPD 

CXJTO 


32,35 23 

00023 0 


leD 

878 

32,3524 

65531 0 


(»>fV20 


32,3525 

77745 1 (WfVls 

DLOAD 



32,3526 

70565 0 

SIGN 

SRl 


32,3527 

00021 1 


leD 


32,3530 

00021 1 

STORE 

16D 


Dp B 7 /B 5 

DP Bs 


REP 1 
HEP 6 


REP T 
REF 4 


REP 1 
REP 3 


HEP 2 
REP 8 


REP 15 
REP 5 


REP 16 


I 


X( Tl >M4X-X(Tl )MIN=BeWa 


B5 PL20D 


bojnds Close togeiheh 
BET«8-OX(Ti)M4X 




32.3532 

32.3533 

32.3534 

32.3535 

32.3536 

32.3537 

32.3540 

32.3541 

32.3542 

32.3543 

32.3544 

32.3545 

32.3546 

32.3547 

32.3550 

32.3551 

32.3552 


77745 1 CW.'CV20 DU«D 
31701 0 


BEWg ( SIONDxCTl ) ) /2=DXf Tl ) 


Hl44inB 


03732 1 


STORE 

NN2 


43345 1 

GHMV25 

DIXWD 

DAO 


03732 1 



NNz 


31675 1 



iRTEBzg 


67240 0 



SLOW 


65544 1 



GAMV30 


31735 1 



<*>1805 


77650 1 


goto 



65476 1 



V2T1X 


03732 1 

GAMV30 

STORE 

NN2 

NN2=NN2«-] 

65345 0 


DLOVO 

PDDl, 

x('n)=x(Ti) 

03722 0 



X(Tl> 


03706 0 



Df 


43325 1 


poa. 

DAD 

IV=CV, 

03722 0 



XlTlI 


00021 1 



16D 



B5 PL20D 


B7/B5 P[,22D 
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4540 

HEP 

17 

LAST 

878 

3Z.3S53 

37722 

1 


SlCALL 

XITl) 

XCTl)+OX(Tl)=X(Tl) Bs 

4541 

REP 

3 

lAST 

878 

32.3554 

65701 

1 



DVCALC 


4542 





32.3555 

71214 

0 


BCN 

DLQAD 


4543 

REP 

3 

LAST 

875 

32.3558 

00312 

1 



P 2 inE 


4544 

REP 

1 



32.3557 

65573 

0 



CMOVSS 


4545 

REP 

S 

LAST 

878 

32.3560 

03706 

0 



DV 


4540 





32.3581 

50025 

0 


DSU 


CCNTINUE IP PUEL CRITICAL MODE 

454T 





32.3582 

00025 

0 



20 D 


4548 

HEP 

1 



32.3583 

65570 

0 



GBMV33 


4549 





32.3584 

57545 

1 

(MMV32 

DLOID 

DCCWP 


4550 





32.3565 

00021 

1 



16D 


4551 





32.3566 

77742 

0 


SRl 



4552 





32.3587 

00021 

1 


STORE 

16D 


4553 





32.3570 

52001 

1 

CWi>CV33 

SETPD 

GOTO 

PL18D 

4554 





32.3571 

00023 

0 



ISD 

4555 

REP 

1 



32.3572 

65636 

1 



OA.'CVSO 


IU556 

TI!« CRITICAL 

MODE 








455T 





32,3573 

45345 

1 

CWtV35 • 

DLCUD 

DSU 


455B 

HEP 

8 

LAST 

875 

32.3574 

036 32 

0 



K1H3VD 


4559 

REP 

7 

LAST 

879 

32.3575 

03706 

0 



DV 


4560 





32.3576 

41525 

0 


POOL 

puai 

DVD-DV=DvEHH B 7 /B 5 PL 22 D 

4561 . 





32.3577 

51545 

1 

CWWV40 

DLOID 

ABS 

DV, PL 24 D 

4562 





32.3800 

00025 

0 



20 D 


4563 





32.3601 

50025 

0 


DSU 

BW 


4564 

REP 

1 



32.3602 

31774 

1 



EpCioHTE 


4565 

REP 

2 

LAST 

878 

32.3803 

65677 

1 



amm 


4566 





32.3604 

71204 

1 

GWNDV45 

BCVB 

DLCAD 


45661 

REP 

8 

LAST 

826 

32.3605 

57343 

1 



ICDANZIO 

ASSURE OVPIND IS 0 

4S6T 





32.3606 

60221 

0 


BDSU 

NCPM 


4568 

REF 

8 

LAST 

879 

32.3607 

03706 

0 



DV 


4569 

REP 

19 

LAST 

872 

32.3610 

00050 

1 



X2 


45T0 





32.3611 

77725 

1 


POOL 


DV-DV, B 7 /B 5 -N 2 Pt,220 

4571 





32.3612 

70501 

1 


NORM 

SRl 

dverr Be/Be-Ni 

4572 

REP 

43 

LAST 

871 

32.3813 

00047 

1 



XI 


4573 





32.3614 

65271 

0 


DDV 

POOL 

DVEHR/ DV-DV 

4576 





32.3615 

41221 

0 


BDSU 

LMP 

PI48D 

4577 

REP 

18 

LAST 

879 

32.3616 

037 22 

0 



XdT) 


4578 





32.3617 

77660 

1 


XSU.l 



4579 

REP 

20 

LAST 

879 

32.3620 

00047 

1 



X2 


45791 





32.3621 

00021 

1 


STORE 

16D 

preserve sign IP OVERFLCW 

45792 





32.3622 

40057 

1 


SR4 

BOV 


4580 





32.3623 

20600 

0 



0-1,1 


45801 

REP 

1 



32.3624 

65632 

0 



a4MV47 


4581 





32.3625 

00021 

1 


STORE 

16D 

<XCTl)-X(Tl) , )DVEHH/(DV-DV,)=DX(T1) 

4582 





32.3626 

45246 

0 


ABS 

DSU 


4583 





32.3627 

00015 

0 


' 

1^ 


4584 





32.3830 

77640 

0 


BW 



4585 

REP 

2 

LAST 

879 

32.3631 

656 36 

1 



OA'CVSO 
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fST.PTO 


ASM 

«8T 

45U 

4589 

>4590 

4591 

4592 

4593 

4594 

4595 
4598 
459T 

4598 

4599 

4800 

4801 

4802 

4803 

4804 

4805 
4808 
480T 
4808 

4609 

4610 

4811 

4812 

4813 
4614 
4815 
4818 
4811 

4818 

4819 

4820 I 

4621 I 

4622 
4823 I 
4024 
4825 


32,3832 

32,3633 

32,3834 

32,3635 


15345 1 
00015 0 
00021 1 
00021 1 


QAMVaI DU»D 


TO Kffip INDEPEND&rr VARIABLE IN BOUNDS 


SIGN 
12D 

16D 

STORE 16 D 


19 LAST 879 


20 LAST 880 


2 LAST 

21 LAST 


2 LAST 

3 LAST 


880 


880 


878 

879 


32.3636 

32.3637 

32.3640 

32.3641 

32.3642 

32.3643 

32.3644 

32.3645 

32.3646 
32, 3647 

32.3650 

32.3651 

32.3652 

32.3653 

32.3654 

32.3655 

32.3656 

32.3657 

32.3660 

32.3661 
32,3862 

32.3663 

32.3664 

32.3665 

32.3666 

32.3667 
32 , 36 7 0 
32,3671 
32 , 36 7 2 

32.3673 

32.3674 
32,3875 

32.3676 

32.3677 
32,3700 


41345 
00021 
31711 
43352 
03722 
00031 
50025 
00017 
65655 
45345 1 
00017 
03722 
77742 0 
34021 0 
65670 0 

45345 1 GUVOVSS 
00031 0 
00013 0 
52040 1 
65663 1 
65670 0 
45345 
00013 
03722 
77742 
00021 
51545 
00021 
50025 
31772 
65677 
77650 
65534 
77650 
00037 


1 


1 


OAWVSO DIX»D 


SLl 

STORE 

DSU 


n.QAO 

SRl 

SlCALL 

DUHD 

B6N 


1 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

0 

1 

0 


WCV60 DLCWD 


GW.'tVoS 


(WOVX 


SRl 

STORE 

DLOID 

DSU 


GOTO 

goto 


CMP 

160 

l.lRTEBi 

DAD 

X(Tl) 

24D 

140 

GWCVss 

DSU 

140 

XfTl) 

16D 

GlVCVes 

DSU 

240 

lOD 

goto 

CW43V60 

GA.'Cves 

DSU 

lOO 

X(Tl) 

16D 

ABS 

16D 

BW 

EPCgRIE 

CWOVX 

CW4V2S 

3lD 
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Tl )MAx( SIGNDXGTI ) )=DXCTl ) 


XlTl )♦! . iDxt Tl )=BETA9 


B5 


<X(Tl)^4Ax-X<Tl))/2=DXfTlJ Bs 



<X(Tl)MIN-XfTl))/2=D)C(Tl) Bs 
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P37.P70 


USBiUS PAOB NO. 39 


BT S3 


P4700 

DV CAIXULATICW SIflBOUrINB 



R4701 

INPUT 




R4T02 

PUSHLIST 




R4T03 

02D 

•IHErAl=Be» 5 ALAN»DA-l 

TP 

Bit 

RATOS 

OSD 

theta 2 = 2 *H( Tl ) *( IA'«DA- 1 1 

TP 

B38/B3e 

R4T0T 

08D 

'1HBBA3=MUAA.5/R(T1) 

DP 

B-a/B -5 

R4T09 

OTHER 




RATIO 

XlTl) 

OOPANGBIT OP POST IMPULSE INITIAL PLIGHT PATH ANGLE 

DP 

Bs 

R4T12 

V(Tl)/ 

INITIAL velocity VECTOR fPRE IMPULSE) 

vector 

Bt/Bs ^«^BRS/CS 

R4T14 

UBl/ 

UNIT INITIAL vector 

vector 

Bl 

R4T16 

IH/ 

IHIT HORIZONTAL VECTOR 

vector 

Bl 

R4T18 





R4T19 

OUTPUT 




R4T20 

V2<T1)/ 

POST IMPULSE INITIAL VELOCITY VECTOR 

vector 

B 7 /B 5 MEIERS/CS 

R4T22 

DV 

INITIAL velocity CHANGE 

DP 

Bt/Bs ME 1 ERS/C 3 

R4T24 

PCON 

»AI-LATUS rectum 

DP 

B28/B26 peters 

R4T26 





R4T2T 

DEBRIS 




RAT 28 

28D 

theta 3+PCCNA=*.S 

DP 

B 10 /B 8 -N 1 

RAT30 

C(PUSLOC) 

theta 3 ( PCCN** . 5 ) AX ( Tl ) +UR 1 / 

vector 

B 7 /B 5 

RAT 32 

32D 

DvCALC subroutine retutot address 



RAT33 

XI 

NORMALIzATICN factor FOR VALUE IN 28D 




R4T34 PU3HLOC IS RESTORED TO ITS ENTRANCE VALUE UP<N EXITINO DvCALC 


4T50 





32,3T01 

71220 

1 DvCALC 

STO 

DLCAD 

4751 





32,3T02 

00040 

0 


32D 

4752 

REP 

22 

LAST 

080 

32,3T03 

03722 

0 


XtTl) 

4753 





32,3T0A 

54316 

1 

DSO 

SR 

4754 





32,3T0S 

20610 

1 


7 

4755 





32,3T06 

76276 

0 

DCCMP 

TAD 

4756 





32,3T0T 

00003 

1 


02 D 

4757 





32,3T10 

41501 

0 

NOIW 

PUSH 

4750 

REF 

44 

LAST 

879 

32,3T11 

00047 

1 


XI 

4759 





32,3T12 

60351 

0 

H-QAD 

NORM 

4760 





32,3T13 

00006 

1 


05 D 

4761 

REP 

21 

LAST 

879 

32,3T1A 

00050 

1 


X2 

4762 





32,3715 

70434 

0 

RIB 

SRl 

47625 

REP 

3 

LAST 

873 

32,3716 

45713 

0 


DPMCDB 

476251 





32,3T17 

56264 

1 

XSU,2 

DOV 

4763 

REF 

45 

LAST 

881 

32,3720 

00046 

0 


XI 

47635 





32,3721 

77657 

0 

SBA 


476351 





32,37 22 

57170 

0 


6,2 

4764 

REP 

3 

LAST 

847 

32,3723 

03720 

1 

STOfffi 

PCCH 

4765 





32,37 2 A 

41366 

1 

SORT 

DMP 

4766 





32,3725 

00011 

1 


08D 

4767 





32,3726 

77701 

1 

NORM 


4768 

HEP 

46 

LAST 

081 

32,3727 

00047 

1 


XI 

4769 





32,3730 

14035 

1 

STODL 

28D 


•IHEW2/(THEnAl-X(Tl)+*2)=PCCN B28/26 


'IHElA3*PCCN>»=t;.5 


BlO/Bs -Nl 



L 
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P3T,PT0 


4TT0 

RET 

23 

last 

881 

' 32.3731 

03722 0 


♦TTl 





32,3732 

T4301 0 

NQE14 

4TT2 

RBP 

22 

last 

881 

32,3733 

00050 1 


4TT3 

REP 

8 

LAST 

859 

32,3734 

03740 1 


4TT4 





32.3735 

74274 0 

XAD ,2 

4TT5 

REP 

47 

LAST 

881 

32,3736 

00046 0 


4T78 





32,3737 

00035 1 


4TTT 





32,3740 

83257 1 

VSfW> 

4TT9 





32,3741 

57207 0 


4TT9 

REP 

5 

LAST 

859 

32.3742 

03746 1 


4T80 





32,3743 

53761 1 

VXSC 

4T81 





32,3744 

00035 1 


4T82 





32,3745 

20575 1 


4783 





32,3746 

45455 1 

VAO 

4784 

RHP 

7 

LAST 

868 

32,3747 

74077 1 

STORE 

47 85 





32,3750 

51451 0 

vsu 

4786 

REP 

6 

LAST 

859 

32,3751 

03672 1 


4787 

REP 

9 

LAST 

879 

32,375 2 

03706 0 

STORE 

4788 





32,3753 

T7650 1 

OOTO 

4789 





32,3754 

00040 0 



f- 
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X<Tl) 

VXSC 

X2 

1*1^ XfTl»*OHi/ B5 *Bi -N2 


XI 

280 


POVL 

0 -9D,2 

IH/ 

1HBl>\3(pCCN+*.5)X(Tl)4URi/ B 7 /B 5 

♦ 

VSB4 

28D 

0 -4.1 

SIADR 

THETAiIpCCN^+.S )IH/ 

B 7 /B 5 

V2<Tl)/ 

ABvAL 

V(Tl)/ 

V2(Tl)/ 

B 7 /B 5 

DV 

ABvAL(V 2<T1 )/-Vl(T)/)=IV 

B 7 /B 5 


32D 
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i 
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L P3T,PT0 

P4800 SUtStOUTINE TO COMPUIB BOUNDS ON INDepaff»4T VARIABLE X(Tl) 



IU801 

IU802 

IU803 

R4B05 

fU80T 

R4809 

IU810 

IU812 

R4814 

IU815 

R48ie 

R4B18 

iUB19 

R4820 

R4823 

IU825 

IUB26 

IU82T 


INPUT 
POSHLIST 


XI NOPMILIZATICN FACTOR FOB MA-RCCN 

20D XTlLIM subroutine RETURN ADDRESS 

POaiLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITINO XTlLW 


4648 

REF 

1 



27,2000 




®TUX: 

RTE2 

4849 





27,2633 




bank 


4850 





27 , 2633 

71220 

1 

XTlLlM 

STO 

DLOW) 

4851 





27,2634 

00024 

1 



20D 

4852 

REF 

12 

LAST 

8T1 

27,2635 

03636 

1 



HCCN 

4853 





27,2636 

44342 

1 


SRl 

BDSU 

4854 





27,2637 

65301 

0 


NOW 

POOL 

4855 

REF 

23 

LAST 

882 

27,2640 

00050 

1 



X2 

4856 





27,2641 

70525 

1 


POOL 

SRl 

485T 

REF 

T 

LAST 

BT2 

27,2642 

03646 

0 



RCIT) 

4858 





27,2643 

56221 

0 


BDSU 

DOV 

4859 





27,2644 

41257 

1 



DMP 

4860 





27,2645 

57577 

0 



0 -1,2 

4861- 





27,2646 

00035 

1 



28D 

48615 





27,2647 

77657 

0 


SL* 


486151 





27,2650 

20172 

1 



0 -7,1 

4862 





27,2651 

50025 

0 


DSU 

BW 

4863. 

KEF 

1 



27,2652 

31663 

0 



iKIEBio 

4864 

REF 

1 



27,2653 

56656 

1 



XTlLD^ 

4865 





27,2654 

52166 

1 


SORT 

GOTO 

4866 

REF 

1 



27,2655 

56660 

1 



XTlLr« 

486T 





27,2656 

77745 

1 

XTTLIMs 

DLCAD 


4868 

REF 

6 

LAST 

876 

27,2657 

31677 

0 



ZERCBIE 

4869 





27,2660 

77650 

1 

XTlLIMX 

GOTO 


4870 





27,2661 

00024 

1 



20D 


USR.S PAGE NO. 41 


E7 S3 


PUSHLOC -4 MIJOR AXIS (MA) 

DP 

B30/B28 

PU3HLOC -2 »1J0R Axis (MAJ AGAIN 

DP 

B30/B28 

280 BBIA5=LA^CDA♦8BWl 

DP 

B9 

OWER 



RCCN 

DP 

B29/B2T 

R(Tl) 

DP 

B29/B2T 

OUTPUT 



MPAC 



XITlILIM LIMIT ON INDEpeTOENT VARIABLE X<Tl) 

DP 

B5 

DEBRIS 



PUaiLIST 



C( PUSHLOC) MA-RCCN 

DP 

(B30/28)-Ni 

C<PaiLOC)42 MA 

DP 

B30/B28 


MA-BCCN 


B3O-N1 


(HETA5W-RtTl))/(MA-BC0tI))-l BlO 



I 
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I- B3T,PT0 

P4900 OWSWNTS TOR THE P 3 T A»0 PTO PHOQBAMS AND SUBROrriNES 


49005 

49008 

4900T 

4901 

4901 

4902 

4902 

4903 

4903 

4904 
4904 
4910 
4910 
4912 

4912 

4913 
4913 
491T 
491T 
4925 
4925 
4928 

4928 

4929 

4929 

4930 

4930 
49301 

49301 

49302 

49302 

49303 
49303 

4931 

4931 
49311 

49311 

49312 
49312 

4932 

4932 

4933 

4933 

4934 

4934 

4935 
4935 


REP 


20’35 OCT. 28,1968 PANDORA .080 PAQS 884 
USR>S FADE NO. 42 ET S3 


M.32S0 

bahc 


34.2000 

®iux: RieccN 

34.3652 

BAJOC 


34,3652 

20000 0 IRTE 81 2 DeC 

l.B-i 

34,3853 

00000 1 

34.3654 

10000 0 IRIEB 2 2 DBC 

1 .B -2 

34,3655 

00000 1 


34,3650 

04000 0 IRTEBa 2PBC 

I.B-3 

34,36ST 

00000 1 


34,3660 

02000 0 IRIEB 4 2 DeC 

I.B-4 

34.3801 

00000 1 


34,3862 

00020 0 1 RIE 810 2 DEC 

l.B -10 

34,3663 

00000 1 

34,3664 

00004 0 1RTEH12 2D0C 

I-B -12 

34,3665 

00000 1 

34,3866 

00002 0 iRIEBia 2 DBC 

1,B-13 

34,366T 

00000 1 

34,3870 

00000 1 IRTEBjy 2 DeC 

I.B-17 

34,3871 

04000 0 

34,3672 

00000 1 1 BIEB 25 2 DEC 

I.B-25 

34,3673 

00010 0 

34,3674 

00000 1 1R7EB28 2 DEC 

I.B-28 

34,3675 

00001 0 

34,3676 

00000 1 ZERORTE 2 DeC 

0 , 

34,3677 

00000 1 

1 

34,3700 

77777 0 M144R1E 2 DGC 

-144 .B-28 ' 

34,3701 

77557 0 

34,3702 

77777 0 MISRTB 2 OBC 

-15 

34,3703 

77760 0 

34,3704 

00000 1 lORTB 2 DBC 

10 

34,3705 

00012 1 

34,3706 

54631 1 M. 6 RIE 2 DBC 

-.6 

34.3707 

63145 1 


34,3710 

21463 0 l.lRTEBi 2 DBC 

l.lB-l 

34.3711 

06315 0 

34,3712 

77777 0 M6R'IEB28 2000 

-6 

34.3713 

77771 0 


34,3714 

37777 1 2 RTEB 1 2 OCT 

3777737777 

34,3715 

37777 1 

34.3716 

77777 0 M9R7ER28 2000 

-9 

34,3717 

77766 0 


34,3720 

77777 0 M8RTEB28 2D0C 

-8 

34.3721 

77767 1 

34,3722 

00000 1 3O48ORT0 2D0C 

30480. B-29 

34,3723 

35610 0 

34,3724 

36703 0 VCSPS 2000 

3 O. 88 IIB -5 

34,3725 

03743 1 







Ill 
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4936 

34.3T26 

33041 

1 

VCBCS 

2 DBC 

27.06640 -5 

4936 

34,3T2T 

37714 

1 




493T 

34,3730 

00003 

1 

MXXTHCS 

2 Dec 

.00163750-3 

493T 

34,3731 

13241 

1 




4938 

34,3732 

20000 

0 

CSl^ 

2 Dec 

.5 

4938 

34,3733 

00000 

1 




4940 

34,3734 

00605 

1 

OCT605 

OCT 

00605 

4941 

34,3735 

00612 

1 

OCT812 

OCT 

00612 

4942 

34,3736 

00613 

0 

OCT613 

OCT 

00613 

4943 

34.3737 

40214 

1 

MCOS7.S 

2 DBC 

-.99144486 

4943 

34,3740 

45266 

1 




4944 

34,3741 

73645 
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JLOOPCNT 

ELAPTISE 
XRlHCLD 
CALL 
UJNAPIAO 
LAT-LCNG 


-2 


20’35 OCT, 28,1968 PANDORA .080 PAOB ggo 
USBRsS PAOB NO. 2 E 4 S3 
SAVE IL PQR OOTPOT TO DSKX 
DISPLAy TDE TO LANDING SIIE 

lEHMINAlB WITH V34E 
PROCEED WITH V33 B 
illegal RESPQ4SB, DO AGAIN 
begin landmark processing 
SET C0U41EH3 POR LOOP CCNTROL 


USE SEAN UNAR RADIUS 

SAVE LCNOIILOE BAND 

SET XRl POR LCNOIILDB OP LANDMARK 

COffUlE IL (TIME TO LANDMARK) 

CCMPinnE LATIILDE AND LCNGIIUDE OP S/C 
At lANDMlRC 

H>=00 

I) PO=02 


PD=00 



LMOOOP 


LXA,2 

^ttXIOpCNT 
DLOAD* BOSU 


ABs 

LATDAB -2,2 

LAT 

puai 

DELTA LAT = ABSIIAT - 

DSU 

BPL 

DELWL greater THAN LX 


DELIAL 

I^IOOOP 

NO 

DLOAO 

SISADR 


STOOL 

Da,TAL 

DELTA lAT = DEI.TAL 

STORE 

XRlHOLD 

DSPIEMl 

SAVE TIME TO LANDMARK 

SXA,2 

INDBXNUM 

SAVE landmark I.D. 

INCr,2 

SKA, 2 

J = J + 2 

OCT 

-2 


SLOAD 

JLOOPCNT 

Dai 



X2 
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AStf^eLB RB^ISION 249 CP AOC PROCStAM COLOSSUS BT NASA 2021111-041 
UMIR IXCMAnc SBLEOnCN FOR CM 


USSRaS PAOB NO. 


E4 S3 


0089 


3 

LAST 

890 

31,3352 

02327 

0 



HWAL 


0090 





31,3353 

52030 

0 


EMIZ 

OOTO 

J = «WAL 

0091 


1 



31,3354 

63356 

1 



DISLID 

TES, GO DISPLAY lANDMAHK ID, MAYBE TL 

0092 

Vf 

1 



31,3355 

83315 

0 



JLOOPP 

NO, CNE MORE TII« 

0093 





31,3356 

70535 

0 

DISLID 

a,(MD 

SRl 

ID = -INDEXNIJM/2 ♦ 1 

0094 

wr 

' 3 

LAST 

890 

31,335T 

02334 

1 



INDBXNlM 


0095 





31,3360 

63144 

0 


U(C .2 

inch , 2 


0096 

wr 

288 

LAST 

863 

31,3361 

00154 

1 



MPAC +0 


009T 





31,3362 

00001 

0 



ID 


0098 





31,3363 

77534 

0 



Exit 


0099 

RBF 

24 

LAST 

T32 

31,3364 

02751 

0 



lANDMARC 


0100 

aep 

1 



31,3365 

3 3537 

0 


CAP 

V05N70** 

DISPLAY LANDMABC ID 

0101 

ICSF 

243 

LAST 

890 

31,3366 

0 4555 

0 


TC 

bankcall 


0102 

asF 

4 

LAST 

888 

31,336T 

20504 

i 


CADR 

OCMARKPR 


0103 

war 

35 

LAST 

890 

31,3370 

0 5423 

1 


IC 

ENDESCr 

TEIWINATE WITH V 34 E 

0104 

EBP 

1 



31,3371 

0 3376 

0 


TC 

DISTIL 

PRCEEED WITH V 33 B 

0105 

wr 

1 



31,3372 

0 3404 

1 


TC 

NEXTBAND 

recycle with V32E 

0108 

IBF 

21 

LAST 

840 

31,3373 

3 4715 

0 


CAP 

FIVE 

blank Rl and R 3 

OlOT 

iHF 

IT 

LAST 

888 

31,3374 

0 5415 

1 


TC 

blanket 


0108 

WP 

103 

LAST 

888 

31,3375 

0 5112 

0 


TC 

BJDOPJCB 


0109 

WBF 

2 

LAST 

889 

31,3376 

3 3535 

1 

DISTIL 

CAP 

VO 6 N 34 ** 

DISPLAY GRCUND ELAPSED TIME TO LANDMARK 

0110 

WBF 

244 

LAST 

891 

31,3377 

0 4555 

0 


TC 

BANkCALL 


0111 

war 

8 

LAST 

890 

31,3400 

20465 

\ 


CADR 

OCMARCP 


0112 

W9P 

38 

LAST 

891 

31,3401 

0 5423 

1 


TC 

ENDEXT 

TERMINATE WITH V 34 E 

0113 

WP 

2 

LAST 

891 

31,3402 

0 3404 

1 


TC 

NEXTBAND 

PROCEED WITH V 33 E 

0114 

BO' 

2 

LAST 

891 

31,3403 

0 3376 

0 


TC 

DISTIL 

ILLEGAL response, DO AGAIN 

0115 

wr 

225 

LAST 

890 

31,3404 

0 6006 

1 

nektband tc 

INTPBET 

MUST WE GO CN 

0118 





31,3405 

6 6 350 

1 


LXA ,1 

SSP 

RESTORE COUNTER 

OUT 

WF 

4 

LAST 

890 

31,3406 

02325 

1 



KUXIPCNT 


0118 

REF 

38 

LAST 

8T2 

31,3407 

00051 

0 



Si 


0119 





31,3410 

00001 

0 



ID 


0120 





31,3411 

77500 

1 


TJX ,1 

EXIT 


0121 

EBP 

1 



31,3412 

63307 

0 



KLOOP 

YES, K = K - 1 

0122 

EBP 

3T 

LAST 

891 

31,3413 

0 5423 

1 


TC 

ENDEXT 

K = 0, EXIT B 35 



I 
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U«AR LAtOMAnc SBLECriCN POB CM 


HEP 1 

BBP 5 LAST 890 


BH' 4 lAsr 888 
lEB 3 lAST 889 


HEP 12 LAST 890 
J»P 5 last T32 


HEB 3 IAST 889 


BEP 2 LAST 892 


HEP 4 LAST 892 
BEP 3 tAST 889 


WS> 3 LAST 889 
BEP 6 last 892 


HEP 3 LAST 889 


REP 1 


HEP 1 


BEP 16 LAST 889 


HEP 1 

HEP 8 LAST 850 


HEP 8 LAST 850 
HEP 2 LAST 892 


HEP IT LAST 892 


HEP 9 last 892 


I 


31.3414 

31.3415 
31,3418 
31,341T 

31.3420 

31.3421 

31.3422 

31.3423 

31.3424 

31.3425 

31.3426 

31.3427 

31.3430 

31.3431 

31.3432 

31.3433 

31.3434 

31.3435 

31.3436 

31.3437 

31 . 3440 

31.3441 

31.3442 

31.3443 

31.3444 

31.3445 

31.3446 

31.3447 

31.3450 

31.3451 

31.3452 

31.3453 

31.3454 

31.3455 

31.3456 

31.3457 

31.3460 

31.3461 

31.3462 

31.3463 

31.3464 

31.3465 

31.3466 

31.3467 

31.3470 

31.3471 

31.3472 

31.3473 

31.3474 

31.3475 


66020 0 
02321 0 
02320 1 
77601 0 
00001 0 
6S37S 0 
15324 0 
02323 1 
45125 0 
15340 1 
55341 1 
53515 0 
02337 1 
47206 0 
00001 0 
5357 2 1 
47206 0 
00001 0 
53572 1 
47315 0 
02337 1 
02345 1 
53572 1 
70125 0 
02335 0 
02320 1 
41223 1 
00001 0 
23534 1 
73406 1 
76561 1 
00023 0 
71525 0 
76561 1 
00015 0 
47255 0 
53572 1 
02152 0 
72441 0 
00007 0 
02734 0 
73526 1 
26732 0 
00007 0 
50235 0 
02152 0 
00031 0 
71244 0 
6 35 0 0 1 
02732 0 


BLAPT1I« STO SCA,i 

HBILOCN 

XRlHOLD 

SETPD 

OD 

VLQAD POOL 

HIUNITZ 


vectiw 

POOL CALL 

DPPOSAAX 
HP-TO-R 
POVL WIT 

POSVBCT 
PO»l VXV 
UZZ 

VSLl UNIT 

puai VXV 

UZZ 

VSLl UNIT 
PDVL VXV 

POSVBCT 
VHJVECT 
VSLl UNIT 
POOL LxC.i 

LCNOSAVE 
XRlHClZ) 
DSU4 DMP 


0,1 

RHCS4L 

SIN 

VSLl 

UNN 

COS 

VSLl 

U* 

VXV 

UNIT 

ALPHAV 

a,i 

URR 

CSIH 

SIN 

SIIH 

l«H 

DOT 

ALPHAV 

24D 

DLOAD 

♦40 

SNTH 


20’35 OCT. 28,1968 PANDORA .080 PAGE 892 


U8BR«S PACE NO. 


SAVE RETURN AND INDEX 1 


ffiT UP POR RP-TO-R 


TRANSPOHM PLANEttHT TO PCS PO=00 

CCMPUIE AND STORE UZ PD=06 

POSITICN vector op CM SCALED B -27 
CCMPUIE AND STORE UR = UNIT(R) PD=12 


CCMPUIE AND STORE IMrUNITCUR X UZ) PD=18 


CCMPUIE AND STORE UN=UNIT(UW X UZ) PO=24 
POSITICN VECTOR OP CM SCALED B-2T 
velocity vector op cm scaled fl-5 

CCMPUIE AND STORE U = UNITCR X V) PO=30 
RESTORE INDEX 1 CCMPLa»ENTED 


DLCNG = .997(LCNG - LCNOJ) 




U’W = lAf COS(DLCNO) + UN SIN(DLCNG) 


PD=30,PD=Z4 

IP = UNIT (U’W X U) 

set UD for LAT-LCNG— point of CLOSEST 

APPROACH 

COS (THETA) = (UD . UR) 


THETA = ACOS(ID.UH), 0 TO PI 
SIN (THETA), 0 TO PI 


CHK (UR X UD) .U 


NBO, THETA = 2 PI - THETA 
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UJHAR landmark SELEOrlOM PQR CM OSERaS PAGE NO. 5 *4 S3 


01658 





31,34T6 

77878 

0 

DCCMP 


BHGO sin (THETA) r - SIN (THETA) 

01659 

REP 

10 

LAST 

892 

31,34TT 

02732 

0 

STORE 

SJTH 


0166 





31,3500 

43175 

0 

VLOID 

set 


016T 

REP 

5 

LAST 

892 

31,3501 

02337 

t 


POSVECT 


0168 

REP 

T 

lAST 

863 

31,3502 

03466 

0 


RVSW 

TIME ONLY 

0169 

REP 

10 

LAST 

B63 

31,3503 

26657 

1 

snvL 

RVEC 


OITO 

HEP 

4 

LAST 

692 

31.3504 

02345 

1 


VELVECT 


OlTl 

HEP 

14 

LAST 

863 

31,3505 

02746 

0 

STORE 

WEC 


01T2 





31,3508 

45160 

1 

AXC.I 

CALL 


1 01T3 





31,3507 

00012 

1 


lOD 

HOCN CNLY 

01T4 

HEP 

8 

LAST 

850 

31,3510 

24737 

1 


TI^e^HET 

C(WPinE TRANSPER TI* 

01T5 





31,3511 

43014 

0 

BCN 

BCN 


01T6 

HEP 

1 



31,3512 

04313 

1 


COQAPIAG 

NO SOLOTICN SINCE NEAR RECTILINEAR 

017T 

REP 

1 



31,3513 

63523 

0 


BTEHROB 


OITB 

HEP 

1 



31,3514 

04310 

1 


INPINFLQ 

NO PHYSICAL SOLUTICN EXISTS 

1 01T9 

HEP 

2 

LAST 

893 

31,3515 

635 23 

0 


BTEHROB 


0180 





31,3518 

43345 

1 

DLQAD 

DAD 

(XMPUTE GROUND ELAPSED TI)E PlfcOO 

0181 

HEP 

4 

LAST 

892 

31,3517 

02323 

1 


VECTIME 


0182 

HEP 

9 

LAST 

863 

31,3520 

00037 

0 


T 


0183 





31,3521 

77650 

1 

GOTO 



0184 

HEP 

2 

LAST 

892 

31,3522 

02321 

0 


HETLOCN 

EXIT EIAPTIHE 

‘ 0185 





31,3523 

52145 

0 

EIBHHOR DLCAD 

GOTO 

RETURN WITH ZERO 

0186 

lEP 

25 

LAST 

887 

31,3524 

15332 

1 


HI6ZEROS 


018T 

REP 

3 

LAST 

893 

31,3525 

02321 

0 


HETLOCN 



I 

f 
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ASSSBLE KEVISICW 249 CF AOC PROGEMM COLOSSUS Bt SAa^ 2021111-041 

UJ«R lammirk saBOrioN for cm 


ROlSTOa 

Roiem 

R018T09 

R018T12 

R018T15 

R018T18 

R018721 

R018T24 

R018T27 

R018T3 

H018T33 

R018T38 

H018T39 

R018T42 

B018T45 

R018T48 

018T49 

01875 


convert RP (vector in plan. COCXO SfSrSM BimER 

earth-pixed or MOCN-PIXED) to lat, long alt ■ ' 

COINING SSOUENC® ’ 

L CALL 

•^1 RPTOUWO 

subroutines used 

RP-TO-R, LAT-LCNG 
input 

FDO-SD = RP vector 

K>6-7 D = tie® 

MPAC = 0 for EARIH, NCN-ZBRO FOR MOCK 
ERADPLAG, UJMPIAO. 


20’35 OCT. 28.1968 PANDORA .080 tMB 894 
OSBIUS PACE NO. 8 B4 S3 


OUTPUT 
latiildb in LAT 

LCNGITODe IN LCNO 

altitu* in alt 

REP 1 


018751 
018754 HEP 
018757 REP 

01878 

018763 REP 
018766 
018769 REP 
018772 HEP 
018775 
018778 REP 

01879 

018793 REP 
01879S REP 
018796 

0188 

0189 

0190 

0191 

0192 

0193 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 


4 (AST- 893 
6 LAST 892 

23 LAST 890 

18 LAST 892 

4 LAST 892 

9 LAST 890 

5 LAST 894 
2 LAST 689 


(REVS. B-o) 
(REVS. B-o) 
(METERS B-29) 
30,2000 
30,3762 


®nx)c R35A 

bank 


30.3762 

30.3763 

30.3764 

30.3765 

30.3766 
30,3787 

30.3770 

30.3771 

30.3772 

30.3773 

30.3774 

30.3775 
31,2000 
31,3526 

31.3526 

31.3527 

31.3530 

31.3531 

31.3532 

31.3533 

31.3534 

31.3535 

31.3536 

31.3537 

0005 
0002 
0022 
0014 

0006 
0000 


45020 1 RPTOLCNO STO (MLL 


02321 0 
55 341 1 
70414 
01743 
61770 
16152 
235 34 
77624 1 
26322 0 
77850 1 
02321 0 


77763 0 
77751 1 
77737 1 
77725 1 
77713 1 
37718 
33106 
01442 
01437 
01306 


BOPP 


STCBL 


CALL 


(XJTO 


hetixxjn 

SBILOC R35 
BANK 


bandwbl dec 

DEC 

DEC 

DEC 

DEC 

Rues'*. 2DEC 


-12 

-22 

-32 

-42 

-52 

.997 


V08N344=t; 

V06N3144: 

V05N70++ 

KCQJNT 

JCOLKT 

IJNN 

UW 

URR 

UZZ 


00634 

00631 

00570 


VN 
VN 
VN 

equals 5D 

equals 2D 

equals leD 
equals izo 
equals 8 D 
equals oD 


HBTLOCN 

HP-TO-R 

VSR2 

LUtAFlAG 

♦1 

ALPHAV 

HHCS«, 

LAT-LCNG 


SAVE RETURL 

C(NvEHT RP to R, B-27 FOR M(XK 
IP LLNAR HESCALB fl-27 TO B-29 


MPAC S DUW TIME 




+60 degree band 
+30 degree band 
+00 degree band 
-30 degree band 
-80 degree band 
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UKAR LANDMABC SELECTION FOR CM 

**** TS!«ORAHY VAUES FOR LANDMIRK TABlES-LEVINB/SAPCNAROW=Wr 


OSBR«S PAOB NO. T 


R02031 

R02032 

R02033 

R02034 

R02035 


LATBW has LATITUBS that 00 PBCM *8 TO -8 DBTOEBS 
UMOTAB has LONOinCES that 00 FWM +60 TO -00 DBmEES 
IATIAB A(X> IANOTAB ARB SCALB) RBVOUjrICNS Bo 
ALTTAB ms ALTITIDSS ^EASURED ABCVB THE l«AN UNAR RADIUS 
ALTTAB is #300) IN leiSRS B-29 


02038 HEP 1 

0204 

31.3540 

TT406 0 t^TWB 

COUNT 

2DEC 

31/LNOHC 

-.015231481 

2 

5 

29 S 

0204 

0205 

31.3541 

31.3542 

58241 0 

00043 0 

2Dec 

.002175928 

3 

0 

47 N 

0205 

0208 

31.3543 

31.3544 

24640 0 

00046 0 

2Dec 

.002381111 

4 

0 

51 N 

0208 

020T 

31.3545 

31.3540 

25716 0 

TT741 0 

2DBC 

-.001851852 

5 

0 

40 S 

020T 

0208 

31.354T 

31.3550 

6S060 1 

00055 1 

2DGC 

.002777778 

6 

1 

00 N 

0208 

0209 

31.3551 

31.3552 

20266 1 

777 20 1 

2Dec 

-.002916667 

7 

1 

03 S 

0209 

0210 

31.3553 

31.3554 

46646 1 

77646 0 

2Dec 

-.005462963 

10 

1 

58 S 

0210 

0211 

31.3555 

31.3558 

57652 1 

00155 0 

JpBC 

.006666667 

11 

2 

24 N 

0211 

0212 

31.355T 

31.3580 

07202 0 

00466 0 

2Pec 

.018935185 

12 

6 

49 N 

0212 

0213 

31.3581 

31.3582 

07373 1 

00050 1 

■gxc 

.00250 

13 

0 

54 N 

0213 

0214 

31.3583 

31.3584 

36561 0 

00070 0 

2D6C 

.003425926 

14 

1 

14 N 

0214 

0215 

31.3585 

31.3580 

04130 1 

77662 0 

2DeC 

-.004722222 

15 

1 

42 S 

0215 

0218 

31.358T 

31.35T0 

64143 0 ■ 

77747 0 

2DeC 

-.001481481 

16 

0 

32 S 

0218 

021T 

31.3ST1 

31,35T2 

67215 0 

00062 0 

2D6C 

.003101852 

17 

1 

07 N 

021T 

0218 

31.35T3 

31,35T4 

32207 0 

00070 0 

2DeC 

.003472222 

20 

1 

15 N 

0218 

0219 

31.3ST5 

31.35T0 

34343 1 

77463 0 

2DBC 

-.0125 

21 

4 

30 S 

0219 

0220 

31.35TT 

31.3800 

46314 0 

00004 0 

^36C 

.000277777 

22 

0 

06 N 

0220 

0221 

31.3601 

31.3602 

21505 1 

00271 0 

2Dec 

.011342592 

23 

4 

05 N 

0221 

0222 

31.3803 

31.3804 

32622 0 

00101 1 

2DGC 

.003981481 

24 

1 

26 N 

0222 

0223 

31.3005 

31.3808 

07343 1 

7T574 1 

2DeC 

-.008009259 

25 

2 

53 S 

0223 

0224 

31.3607 

31,3610 

70656 0 

00065 1 

2DBC 

.003240741 

26 

1 

10 N 

0224 

31.3811 

03052 0 







I 
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•22S 

•22S 

0220 

0220 

0222 

022T 

0228 

0228 

0220 

0229 

0230 

0230 

0231 

0231 

0232 

0232 

0233 

0233 

0234 

0234 

0235 
0235 
0230 
0230 
023T 

0237 

0238 

0238 

0239 

0239 

0240 

0240 

0241 

0241 

0242 

0242 

0243 

0243 

0244 

0244 

0245 
0245 
0248 
0240 
0247 

0247 

0248 

0248 

0249 
0249 


31.3612 

31.3013 

31.3614 

31.3615 

31.3616 

31.3617 

31.3620 

31.3621 

31.3622 

31.3623 

31.3624 

31.3625 

31.3626 

31.3627 

31.3630 

31.3631 

31.3632 

31.3633 

31.3634 

31.3635 

31.3636 

31.3637 

31.3640 

31.3641 
31,3842 

31.3643 

31.3644 

31.3645 

31.3646 

31.3647 

31.3650 

31.3651 

31.3652 

31.3653 

31.3654 

31.3655 

31.3656 

31.3657 

31.3660 

31.3661 

31.3662 

31.3663 

31.3664 

31.3665 

31.3666 

31.3667 

31.3670 

31.3671 
31,3872 
31,3673 
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t 77842 1 

1 66360 1 

2DBC 

-.005694444 

27 

2 

03 S 

00045 0 
05267 1 

2DEC 

■002268518 

30 

0 

49 N 

77577 1 
71734 1 

2Pec 

-.007824074 

31 

2 

49 S 

00130 0 
27711 0 

spec 

.005416667 

32 

1 

57 N 

05120 1 
14712 0 

UWGMAB 2PeC 

-161157407 

2 

58 

01 E 

05076 0 
06264 1 

2DEC 

.160046298 

3 

57 

37 B 

04453 1 
23531 1 

2DeC 

.143287037 

4 

51 

35 E 

03554 0 
33074 1 

2DEC 

.116018518 

5 

41 

48 B 

03326 0 
25112 1 

2Pec 

.106851852 

6 

38 

28 0 

03263 0 
00252 1 

2000 

.104875926 

7 

37 

41 E 

03014 1 
34505 0 

2000 

.094537037 

10 

34 

02 E 

03007 0 
22564 0 

2000 

-094212963 

11 

33 

55 E 

02740 0 
04432 0 

2000 

.091805555 

12 

33 

03 E 

02531 1 
04017 0 

2000 

.083564815 

13 

30 

05 E 

02066 0 
23501 1 

20ec 

.065833333 

14 

23 

42 E 

01502 1 
13684 1 

2oec 

.050925926 

15 

18 

20 E 

01272 1 
23036 0 

2000 

.042638889 

16 

15 

21 E 

00570 0 
37365 0 

2000 

.023009259 

17 

8 

17 E 

0 0 25 2 1 
25253 1 

2000 

.010416867 

20 

3 

45 E 

00000 1 
30213 1 

2000 

000046296 

21 

0 

01 E 

77703 0 
52142 1 

2000 

-.003703704 

22 

1 

20 W 

77254 1 
76114 1 

2000 . 

.020694444 

23 

7 

27 * 

77173 1 
64334 1 

2000 • _ 

.023703704 

24 

8 

32 W 

76265 1 
51114 1 

2000 

.051435185 

25 

18 

31 nr 

75644 0 
77223 1 

2OEC - 

.068055556 

26 

24 

30 W 






I 



.1 
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UKAR LAMMVIK SBLECTICM TOR CM 


20’35 OCT. 28,1960 PANDORA WOB 897 

USRaiS PAOB NO. 9 Bk S3 


0250 

0250 

0251 

0251 

0252 

0252 

0253 

0253 

0254 

0254 

0255 

0255 

0256 

0256 

0257 

0257 

0258 

0258 

0259 

0259 

0260 
0260 
0261 
0261 
0262 
0262 
0263 

0263 

0264 

0264 

0265 

0265 

0266 
0266 
0267 

0267 

0268 
0268 
0269 

0269 

0270 

0270 

0271 

0271 

0272 

0272 

0273 

0273 

0274 
0274 


31,3674 

75215 0 

2Dec 

31,3675 

72762 1 

gxc 

31,3676 

74613 0 

31,3877 

76225 0 


31,3700 

74571 1 

2Dec 

31,3701 

67600 0 


31,3702 

74174 0 

2Dec 

31,3703 

54550 0 


31,3704 

77777 0 ALTDAB 

2Dec 

31,3705 

75752 0 


31,3706 . 

77777 0 

2Pec 

31,3707 

75752 0 

jpec 

31,3710 

77777 0 

31,3711 

76200 1 

2pec 

31,3712 

77777 0 

31,3713 

76738 1 

gxc 

31,3714 

77777 0 

31,3715 

77051 0 


31,3716 

77777 0 

2DGC 

31,3717 

77558 1 

jPBC 

31,3720 

77777 0 

31,3721 

77556 1 


31,3722 

77777 0 

gxc 

31,3723 

76370 1 

Tpec 

31,3724 

77777 0 

31,3725 

77102 1 


31,3726 

77777 0 

2DGC 

31,3727 

76426 0 


31,3730 

77777 0 

2DGC 

31,3731 

74660 1 


31,3732 

00000 1 

■gxc 

31,3733 

04773 0 

Tpec 

31,3734 

00000 1 

31,3735 

08577 1 

jpec 

31,3736 

00000 1 

31,3737 

04773 0 

Tpec 

31,3740 

00000 1 

31,3741 

02741 1 


31,3742 

00000 1 

7pec 

31,3743 

03643 0 


31,3744 

77777 0 

ZDBC 

31,3745 

77053 1 

2pec 

31,3746 

00000 1 

31,3747 

02234 0 


31,3750 

00000 1 

2Pex; 

31,3751 

02347 0 


31,3752 

00000 1 

zdbc 

31,3753 

00151 1 


31,3754 

00000 1 

ZDBC 

31,3755 

00740 1 



-.085092593 

27 

30 

38 

w 

-.100833333 

30 

38 

18 

w 

-.101944444 

31 

36 

42 

w 

-.117407407 

32 

42 

16 

V 


-2090 B-29 2 
-2090 B-29 3 
-1790 B-29 4 
-1090 B-29 5 
-940 B-29 6 
-290 B-29 7 
-290 B-29 10 
-1549 B-29 11 


-890 B-29 

12 

-1490 B-29 

13 

-3230 8-29 

14 

5110 0-29 

15 

8910 B-29 

16 

5110 b-29 

17 

3010 B-29 

20 

3910 B_29 

21 

-935 B-29 

22 

2360 B-29 

23 

2510 B-29 

24 

210 B-29 

25 

960 B-29 

26 




-ssaeii RBvisicN 249 op aoc program colossus w nasa 2021111-041 

UKAR LAMMABK SBLEOtION POR CM 


0275 

0275 

0270 

0270 

0277 

0277 

0278 
0278 

♦*=7 BO OP PANDORA .080 *44: 


31,3758 

31.3757 

31,3700 

31,3781 

31,3702 

31.3783 

31.3784 

31.3785 


00000 1 
01217 1 
00000 1 
01301 1 
77777 0 
75337 1 
77777 0 
75470 0 


2CGC 4310 B-29 

7f>BC J4J0 B_29 

2CEC -2824 B-29 

2CBC -2445 B-29 


20’35 OCT. 28.1988 PANDORA .080 PAGE 898 
USER«S PACE NO. 10 B4 S3 
27 

30 

31 

32 




f 


AsaaflU! revision 249 op aoc program colossus by nasa 2021111-041 

I. TVCINITIALIae 

RlM* *«« TVCDAPQN (TVC dap initialization and STAKIUP CALL) 

RlOOl HCD NO 3 DAIB 8 JUNB.IOBT 

B1M2 NOD BY BtGEL LOO SECTION P40-P4T 

R1M3 nWCriONAL DSSCRIPTICN 

KtM4 PEBTOBM3 TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ElC.) 

RIMM COAPUIES STEERING (S40.8) GAIN KPRIM2DT, AND ZEROES PASTI«IV,*1 VARIABLE 

Rioos makes initialization call TO . .NESDLER. . FOR TVC DAP NEEDLES-SETUP 

RlOO* PERFORMS INITIALIZATION <FOB ROLL DAP 

mtia CALLS TV(SxECuriVE AT TVCEXBC, VIA RAITLIST 

Rtail CALLS TVCDAP CDU-RATE INITIALIZATION PKO AT DAPINIT VIA TS 

. R1S12 MaCLEAN AND TVCINIT4 ARE POSSIBLE TVC-RBSTART ENTRIES 

noi3 CALLING ffiOUENCE - T5LOC=2CADR(TV(t»APCN,EaANK=BzERO) , T5=.8 SECTS 
R1814 IN particular, CALLED BY . . IGNCVER. . 

R1015 NORMAL EiXIT MODE 
R1016 TCP HBSIP® 

RIOIT SlAXXJTINBS CALLED 
RlRlR NBBDLER, MASSPROP 

RlOlR alarm OR abort EXIT MODES 
R1R20 NONE 

R1R21 bhasable initialization reouired 

R1S22 CSMASS, laWASS, DAPDATHl (FOR MASSPROP SUBROUTINE) 

Rie23 TVC PAD LOADS (SEE LEVEL III DAP AND/OR P40 TESTS) 

Ria24 PACTOPF, YACTOFE, CDUX 

Ria2S TVCPHASE, TsBITS op PLA 0#RD6 , for BESDART PROTECTION (SEE IGNCVER) 

R102S OUTPUT 

R102T ail TVC and ROLL DAP EHASABLES, PLAOjrHDe (BITS 13,14), T5, WAITLIST 

R102S debris 

Ria29 NONE 


20*35 OCT. 28,1988 DAPCSM .195 PAGE 899 
USBR.S PAGE NO. I Eo S3 


itso 

■EF 

1 






CCUNT* 

$$/INIT 

im 





17,2030 



bank 

IT 

1032 

BBF 

3 

LAST 

683 

17,2000 



ffiTLOC 

dapst 

1033 





17,2030 



bank 


1034 

REF 

2 

LAST 

184 

E6,1742 



EBANK= 

BzERO 

1035 

SEF 

T 

LAST 

691 

17,2030 

22 016 

0 

TVCTHAPOJ LNCM 

BANKIAJPT 

1030 





17,2031 

0 0006 

1 

extend 


10301 

BBF 

T 

LAST 

692 

17,2032 

22 012 

1 

OXCH 

QBUPT 

1038 

REF 

1 



17,2033 

3 2205 

1 

MBCLEAN CAF 

NZERO 

A1030 










1040 

REF 

18T 

LAST 

841 

17,2034 

10 000 

0 

♦1 CCS 

A 

1041 

REP 

14 

LAST 

687 

17,2035 

55«447 

0 

TS 

CNTR 

1M2 

REF 

156 

LAST 

050 

17,2036 

3 4714 

1 

CAF 

zero 

1043 


T8 

LAST 

842 

17,2037 

54 001 

1 

TS 

L 

1044 

Rep 

15 

LAST 

899 

17,2040 

51*447 

1 

INDEX 

(XTB 

1045 

RfiP 

1 



17,2041 

53*530 

1 

DXCM 

CPBGAYC 

1040 

REP 

16 

LAST 

899 

17,2042 

11*447 

0 

(X;s 

CNTR 

104T 

REF 

1 



17,2043 

1 2034 

0 

TCF 

MRCIEAN +1 


T5 BUPT arrival (CAIL BY DOTVCCN - P40) 
SAVE O required in restarts (MRCIEAN AND 
TVCINIT4 are entries) 

NLPBEH to zero, less one (must be ODD) 
TVC restarts enter here (NEW BANK) 


FIRST (lAST) TWO l.GKATICNS 





*SS»«LB BEVlSIOf 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
IVCINITIALI2B 


104T1 

104T2 BBP 


104T3 BEP 12 LAST 892 

104T4 HBP IT LAST TTT 

104T5 RBP 8 LAST 892 

104T8 HEP 28 LAST 892 


104TT BEP 8 last 899 
104T8 


104T9 

REP 

8 

LAST 

899 

1048 

BEP 

31 

lAST 

690 

1049 

RBP 

4 

LAST 

654 

1050 

HEP 

4 

LAST 

649 

1051 





1052 

BEP 

• 1 



1053 

REP 

2 

LAST 

103 

1054 





1055 

BEP 

11 

LAST 

664 

1058 

BEP 

T 

LAST 

664 

1059 

BEP 

60 

LAST 

692 

1060 

RBP 

44 

LAST 

747 

1061 

HEP 

188 

LAST 

899 

1062 

REP 

61 

LAST 

888 

1063 

RBP 

IT 

LAST 

899 

10631 

BEP 

18 

LAST 

900 

106312 HEP 

1 



106314 

: BEP 

2 

LAST 

103 

10632 

REP 

32 

LAST 

900 

106322 BEP 

1 



1064 

RBP 

1 



1065 

RBP 

T9 

LAST 

899 

1066 

RBP 

34 

LAST 

778 

106T 

RBP 

19 

LAST 

900 

1068 

REP 189 

LAST 

900 

1069 

RBP 

3 

LAST 

677 

lOTO 





1071 

RBP 

18 

LAST 

900 

1072 

REP 

62 

LAST 

900 

1073 

REP 

3 

LAST 

245 

10732 

RBP 

36 

LAST 

700 

10733 

REP 

10 

LAST 

654 

10734 

RBP 

11 

LAST 

900 


IT, 2044 

0 0006 1 

BiaBO 

IT, 2045 

3 2212 1 

DCA 

INIILOC2 

IT, 2046 

53x313 0 

OXCH 

TSLOC 

1T,204T 

3 4672 0 

CAP 

POS41X 

IT, 2050 

54 030 0 

T3 

TW«5 

IT, 2051 

1 5222 1 

fNDMHC TCP 

BBSUffi 

IT, 2052 

22 016 0 

TVCINITI LXCH 

bankrupt 

IT, 2053 

0 0006 1 

EJCISND 

IT, 2054 

22 012 1 

a(CM 

(»JPT 

IT, 2055 

0 4633 0 

IC 

ibnkcall 

IT, 2056 

13207 0 

CAOR 

msspROp 

1T,205T 

30 110 1 

CAE 

EMXlr 

IT, 2060 

0 0006 1 

Exrero 

IT, 2061 

T 2206 0 

MP 

Offimeu 

IT, 2062 

55«64T 1 

TS 

TBMXJT 

IT, 2063 

4 0000 0 

C(M 


IT, 2064 

6 1474 1 

AO 

C3*MSS 

IT, 2065 

55x662 0 

TS 

mssmp 

IT, 2066 

31x466 1 

CAE 

BAPDATRi 

1T,208T 

T 4675 0 

wac 

BIT14 

1T,20T0 

10 000 0 

CCS 

A 

1T,20T1 

3 4712 1 

CAP 

BITl 

IT, 2072 

55x447 0 

TS 

Q(TO 

1T,20T3 

51x447 1 

INDEX 

Qim 

1T,20T4 

31«416 0 

CAE 

aoLx/i 

1T,20TS 

55x646 0 

TS 

KTLX/I 

1T,20T6 

0 4633 0 

TC 

I&IKCAIL 

IT, 2077 

35145 1 

CADH 

S40.15 

IT, 2100 

31«420 0 

TVCINITz CAE 

Blva)T/z 

17,2101 

54 001 1 

TS 

L 

17,2102 

3 4711 1 

CAP 

BIT2 

17,2103 

51«447 1 

INDEX 

Q(TH 

17,2104 

30 000 1 

CAE 

A 

IT. 2105 

55«644 1 

TS 

KPRI)ffiDT 

17,2106 

4 0000 0 

CCM 


17,2107 

6 4672 0 

AD 

POS«X 

17,2110 

6 4712 1 

AD 

BITl 

17,2111 

55«635 1 

TS 

TSTVOT 

17,2112 

4 4674 1 

CS 

BIT15 

17,2113 

7 0105 1 

WSK 

FLACWRD9 

17,2114 

54 105 1 

TS 

PIACWRD9 


20’35 OCT. 28,1988 DApCSM .195 PAOB 
UaBIbS PACE NO. 2 Be 83 


ffiT UP ANOIHER T5 rupt JO CCNTINlE 
INITIALIZATIW AT IVCINITl 
U® PHSCHC2 ensY (RHXJIVC) at tycdapcn 
♦3 IS IN ANOTHER BANK. MUST BESET 
BBCCM too (PULL 2CADR) POR THAT 
BmiY. 


UPLMlB IXX, IAvO/nj( FOR DAP GAINS (B03 
OR NOlNS 46 and 47 MUST BE CORRECT) 


SPS PLOW rate, sc .AT B +3 KO/CS 


10-SBC mss LOSS B+16 KO 


DECRBAENT FOR FIRST 10 SEC OP BURN 
Office l»1-CN/0FF 


LBL-CN (BITl) 
LPM-OPF (ZERO) 


PIOC UP IM-0FF,-CN KTLX/I 




COlPure I/CCNACC, vABK 


LBL-QL VALUE (PAD-LOAD, CS / 2) 
LE4-aFF VALUE (4CS / 2) 


(TtMP STORE) 


prepare tctvcdt 


reset swtcver fiag 


I 


I 


ASSE^BLE BEVISICN 249 OP AOC PROGIWM COLOSSUS BY NASA 2021111-041 


20’35 OCT. 28,1968 mpCS4 .195 PAOB 901 



L 

TVC initialize 






USBRsS PAOB NO. 3 Eg S3 

10T4 

HEP 

20 

LAST 

900 

17,2115 

51«44T 1 

INDEX 

CNTB 

PIQC UP La4-0PP,-CN KPRIME 

1075 

REP 

1 



17,2116 

31«413 0 

CAE 

EKPRIKB 


1070 





17,2117 

0 0006 1 

EXTE© 


1077 

REP 

4 

LAST 

.900 

17,2120 

T 1644 1 

MP 

KPHIMEDT 

(TVtUr/Z, SC .AT Bti4CS) 

1078 

REP 

190 

LAST 

900 

17,2121 

22 000 1 

LXCH 

A 

SC .AT PI/8 CDIMENSICNLESS) 

1079 

REF 

5 

LAST 

901 

17,2122 

53^45 0 

DXCH 

KPHIKEDT 


1080 

REP 

21 

LAST 

901 

17,2123 

51«*447 1 

INDEX 

OlTR 

PICic UP L£M-0PP,-CN REPFRAC 

1081 

REP 

2 

LAST 

676 

17,2124 

31M23 0 

CAE 

bbepfrac 


1082 

REP 

4 

LAST 

678 

17,2125 

55«652 0 

TS 

BEPERAC 


1083 

REP 

14 

LAST 

575 

17,2126 

3 7T16 0 

CAE 

NEGCNE 

prevent stroke test until CALLED 

1084 

IffiP 

2 

LAST 

103 

17,2127 

55*664 0 

TS 

STRKTIMB 


1085 

REP 

1 



17,2130 

3 4374 0 

CAE 

NINETE&I 

ffiT VCNTR EC» VARIABLE-GAIN UPDATES IN 

1086 

REP 

4 

LAST 

678 

17,2131 

55*653 1 

TS 

VCNTR 

10 SECONDS (TVCExEC 1/2 SEC RATE) 

10862 

REP 

7 

LAST 

663 

17,2132 

55*444 0 

TS 

V97VCNTa 

FOR aiGEAIL (R41) LOGIC 

1087 

REP 

1 



17,2133 

31*421 1 

CAE 

ETamcH 

PREPARE SWITCHOVER CONTER 

1088 

REP 

80 

LAST 

900 

17,2134 

54 001 1 

TS 

L 


1089 





17,2135 

6 0000 1 

DOm^ 


(COUNTER DECREMENTS EVERY 1/2 SEC) 

1090 

REP 

191 

LAST 

901 

17,2138 

22 000 1 

LXOI 

A 

LFM-CPF IN A, LEM-ON IN L 

1091 

HEP 

22 

LAST 

901 

17,2137 

51*447 1 

INDEX 

CNTR 


1092 

REP 

192 

LAST 

901 

17,2140 

30 000 1 

CAE 

A 


1093 

REP 

15 

LAST 

901 

17,2141 

6 7716 0 

AD 

NEGCNE 


1094 

REP 

23 

LAST 

901 

17,2142 

55«447 0 

TS 

CNTO 

CNTR = 2( SWITCHOVER TIME, SEC) -1 

1095 

REP 

16 

LAST 

690 

17,2143 

31*4^ 0 

1VCINIT3 CAE 

PACtCFP 

TRIM VAILBS TO TRIM-TRACkEHS, OUTPUT 

1096 

REP 

2 

LAST 

102 

17,2144 

55*625 0 

TS 

PDELORE 

trackers, offset-updates, and 

1097 

REP 

4 

LAST 

167 

17,2145 

55*631 0 

TS 

POO 

OFFSBT-TRACkBR FILTERS' 

1099 

REP 

3 

LAST 

655 

17,2146 

55*621 1 

TS 

delpbar 

NOIE, IXLOROBR DELOW’.DELHAR ZEROED 

1100 

REP 

5 

LAST 

687 

17,2147 

31*426 0 

CAE 

YACTOFE 


1101 

REP 

2 

LAST 

102 

17,2150 

55*627 1 

TS 

ydelcfe 


1102 

REP 

2 

LAST 

102 

17,2151 

55*632 0 

TS 

YQ® 


1104 

REP 

3 

LAST 

655 

17,2152 

55*623 0 

TS 

delybar 


1111 

REP 

12 

LAST 

692 

17,2153 

4 1501 0 

NEHX£IN CS 

RCSFLAGS 

set bit 3 for initialization pass and GO 

1112 

REP 

26 

LAST 

868 

17,2154 

7 4710 1 

' MASK 

BIT3 

TO NEEDLER. WIU, CLEAR FOR TVC DAP 

1113 

REP 

13 

LAST 

901 

17,2155 

27*501 0 

ADS 

RCSFLAGS 

(RETURNS AFTER CADR) 

1114 

REF 

33 

LAST 

900 

17,2156 

0 4633 0 

TC 

ibnkcall 


1115 

REP 

5 

LAST 

540 

17,2157 

42404 1 

CADE 

NEEDLER 


1116 

REP 

157 

LAST 

899 

17,2160 

3 4714 1 

1VCINIT4 CAE 

ZERO 

®T TVCFHASE TO INDICATE TVCDAPCN-THai- 

1117 

REP 

3 

LAST 

652 

17,2181 

55*654 0 

TS 

TVCPHASE 

NEEDIEIN INITIALIZATION PINISHFD. 

41118 









(possible TVC-RESTART ENTRY) 

1119 

REP 

18 

LAST 

736 

17,2162 

30 032 0 

CAE 

CtXK 

prepare ROl,L DAP lADDERS 

1120 

REP 

6 

LAST 

188 

17,2163 

55*672 1 

TS 

OfiANCW 




Assa«LB BEVISICN 249 CF AOC PROQHAM COUMSUS BY NASA 2021111-041 
IVCINITIALIZE 


20’35 OCT. 28,1900 tWPCSM .195 PAOB 902 


UaBB>S PAGE NO. 


BOLL DAPS BE-STABT UPON A BESTAKT. Bur 
BBWIN ORIGINAL OQAO ( ICNCWBB CDUX) 


11222 

RBP 

32 

LAST 

827 

17,2164 

3 4676 

1 


CAP 

Bins 

11223 





17,2165 

0 0006 

1 


E)cia® 


11224 

REP 

27 

LAST 

783 

17,2166 

02 011 

0 


RAND 

DSAlMQur 

11225 





17,2167 

0 0006 

1 


extend 


11226 





17,2170 

1 2173 

1 


BzP 

♦3 

A11227 











1123 

REP 

8 

LAST 

900 

17,2171 

31«662 

1 


CAE 

WASSIMP 

1124 

REP 

12 

LAST 

900 

17,2172 

55«474 

0 


TS 

CSNMASS 

1125 

RHP 

6 

LAST 

700 

17,2173 

3 4731 

0 

+3 

CAP 

.5®C 

1126 

REP 

41 

LAST 

779 

17,2174 

0 5140 

1 


IC 

WAITLIST 

1127 

REP 

3 

LAST 

899 

E6,1742 




EaANK= 

BzEBO 

1128 

REP 

2 

LAST 

184 

17,2175 

02660 

0 


2CADR 

TVCEXEC 

1128 





17,2176 

34066 

0 




1129 





17,2177 

0 0006 

1 


EXTEND 


1130 

REP 

1 



17,2200 

3 2210 

0 


DCA 

dapinits 

1131 

mp 

13 

LAST 

900 

17,2201 

53«313 

0 


dxch 

TSLOC 

1132 

REP 

4 

LAST 

900 

17,2202 

31*6 35 

0 


CAE 

TSTVODT 

1133 

REP 

9 

LAST 

900 

17,2203 

54 030 

0 


TS 

TI)^ 

1134 

REP 

29 

LAST 

900 

17,2204 

1 5222 

1 

ENDTVCIN TCP 

HESU« 

1135 





17,2205 

00101 

1 

nzero 

DEC 

65 

1136 

REP 

17 

LAST 

440 

4374 



NINETEEN 

= 

VOi 

1137 





17,2206 

03720 

1 

CNEIHCXJ 

DEC 

1000 B-13 

1138 

REP 

4 

LAST 

902 

E6,1742 




ERANKr 

B2®R0 

1139 

REP 

1 



17,2207 

03111 

0 

DAPINITS 

2CADR 

DAPINIT 

1139 

REF 

1 



17,2210 

40066 

0 




11392 

REF 

5 

LAST 

902 

E6,1742 




EBANK= 

BZERO 

1140 

REP 

1 



17,2211 

02052 

1 

INITUKa 

2CADR 

TVCINITl 

1140 

REP 

1 



17,2212 

36066 

1 





IP BWINE IS ALREADY OPP, ENOINOPP HAS 
ALREADY ESTABLIaia) THE POST-BUKN 
C9«ASS (HASSBAOc DOES IT) . DCNT 
TaXM CS^^!ASS. IP BIOINE IS ON, 
THBI ITS CK TO DO THE COPYCYCLE 

Ev»i Burns less than o.asec are ack 


COPYCYCLE 


CALL TVCExECUrivE (ROLLDAP CALL, ElC) 


CALL FOR DAPINIT 


(AUEW TIME FOR RESTART CCMPUIATICNS) 


HIST be odd for MHCIEAN 


KG/CS 83 TO KG/ioSEC Bi 6 CCNVERSICK 




I 


I 
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ASS»«LB RBV^ISION 249 OF AOC PBCXJBAM COLOSSUS ffif MAS* 2021111-041 
L TVCBXBCUriVE 

RlOOO PKOGBAM SMS TVtSxECuriVE, CCNSISTINO OP TVCEXEC, NEEDl£UP, VABCMIN3 

RlOOl HEPQffiK, SWTQlCVR, CO.CQRR, STOXUP, TVCEXFIN, ETC. 

RIOO2 U» section TVCExECUTIVB SLBBauriNB DAFCS-I 

R1003 HOD BY BOTEL DATE 23 OCT, 198T 

R1004 EVWCtIONAL DESCRIPTION 

R1005 «A SELP-PKIP&IUATINO WAITLIST TASK AT 1/2 SECOND INTEH/ALS WHICH’ 

RIOOB PREPARES THE ROLL TVC DAP LADDERS 

RlOOT PREPARES THE ROLL FDAI NHEDLE (PLY-TO OQA ERROR) 

B1008 PREPARBS-THE ROLL PHASE PLANE OQAERR <PLY-FR£M OQA ERROR) 

R1009 prepares the TVC RGLLDAP task waitlist call (3 CS DELAY) 

Rioio updates we needles display 

RlOll IMPLBiENTS VARIABLE OAINS AND VARIABLE VEHICLE HASS 

R1012 PROVIDES TOR SJTITCHOVER 

R1013 PRCVIDES FOR A SINGLE-SHOT THRUST MISALIGNMENT CORHECrICN AT SWTOVR 

R1014 PRCVIDES FOR REPETITIVE THRUST MISALIGNMENT CORHECTICNS FOLLCWINO 

R1015 SWITCHOVER 

RlOlB PERFORMS CERTAIN STRCKE TEST PUNCTICNS 


usbr«s page NO. 


EO S3 



RioiT CALLura seocmH 

R1018 «VCE)CBC CALLTO AS A WAITLIST TASK, IN PARTICULAR BY TVCINIT4 AND BY 

R1019 ITSELF, BOTH AT 1/2 SECCND INTERVALS 

R1020 NORMAL E)CIT MODE TASKOVBR 

R1021 alarm OR ABORT EXIT MODES NOffi 

R1022 SUBROUTINES CALLB3 NEEDLBR, 840.15, MASSPROP, TASKCVER, IBNKCALL 

R1023 CmffiR INTERFACES 

R1024 ATVCRBSTART PACKAGE FOR RESTARTS 

R1025 «>ITCM)AP, YAWDAP FOB VARIABLE GAINS AND ENGINE TRIM ANCLES 

R1026 *S40.8 for KPRIM®DT AT SWITCHOVER 

H1027 ERASABLE INITIALIZATION REQUIRED 

R1028 *3EE TVCDAPCN TVCINIT4 

R1029 4VArec and 1 /CXNACX; CS40,1S op R 03 ) 

R1030 4V68 INITIALIZATICN PRIOR TO SWITCHOVER OR PaLCWING A RESTART 

R1031 ■ DURING A STRCKE TEST, IP STRCKE TEST PUNCTICNS ARE TO BE TESTED 

R1032 *PAD LOADS EREPFRAC, ECORFRAC BTC. 

B1033 *8 ITS 15,14 CF FLAOWDb CTS BITS) 

R1034 4TVCEXPHS PCR RESTARTS 

R1035 *ENGINB-CN BIT C 11.13) FOR RESTARTS 

R1036 ACDUX, OGAD 

Hi 037 OUTPUT 



1 
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TWCEXECUriVE 


USERoS PAOB NO. 


Eo S3 


*1038 *SOLL, TVC nAp LADDERS, FDAI NEEDLE (AK) , AND PHASE PLANE OQAERR 

R1039 ^variable GAINS PCH PIlCH/YAW AND ROLL TVC DAPS 

R1040 ♦SINGLE-SHOT AND REPETITIVE COHHECTICNS TO ©fOINE TRIM ANGLES 

B1041 PAOTOPF AND YACTOPP 

R1042 AQIANGBS TO DAP SAMPLE RATES, DAP GAINS, AND STEERING-GAIN SCALING 

*1043 at (LEM-ON) SWIlCHO/ER 

*1044 ♦STRCKBR, 4 SECONDS AFTER SfllCHCVBR WHEN PRIOR V68, OR 2.5 

*1045 SECONDS APIER RESTART DURING A STROKE TEST 

*1046 debris KXJI, But shareable WITH RCS/ENTRY, ALL IN EBANKa 


104T 





16,2660 




bank 

16 


1048 

REP 

1 



16,2000 




SBTLOC DAPBCLL 


1049 





16,2660 




bank 



1050 

RET 

6 

LAST 

902 

E6,1742 




ebank= 

BzERO 


1051 

REP 

1 







COUNTS $$/TV<5( 


1052 

REP 

25 

LAST 

692 

16,2660 

4 0102 

0 

TVCESCEC 

CS 

FLAO«tt)6 

CHECK POR TEIWINATICN (BITS 15,14 BEAD 

1053 

REP 

13 

LAST 

692 

16,2661 

7 4105 

0 


mask 

•OCTBOOOO 

10 FRCM TVCDAPCN TO RCglAPON) 

1054 





16,2662 

0 0006 

1 


EXTEND 



1055 

REP 

1 



16,2663 

6 3142 

0 


BZMP 

TVCEXPIN 

terminate 

1056 

REP 

7 

LAST 

902 

16,2664 

3 4731 

0 


CAP 

.5SEC 

W.L. CALL TO perpetuate TVCExEC 

i05T 

REP 

42 

LAST 

902 

16,2665 

0 5140 

1 


TC 

waitlist 


1058 

REP 

7 

LAST 

904 

E6,1742 




EaANK= 

BzERO 


1059 

REP 

3 

LAST 

902 

16,2666 

02660 

0 


2 CADa 

TVCEXEC 


1059 





16,2667 

34066 

0 





1060 

REP 

19 

LAST 

901 

16,2670 

30 032 

0 

ROLLPHEP 

CAE 

CIXJX 

update roll LADDERS (NO NEED TO RESTAHT- 

1061 

REP 

7 

LAST 

901 

16,2671 

57«672 

0 


XCH 

OGANOW 

PROIECT, SINCE ROLL DAPS RE-START) 

1062 

REP 

2 

LAST 

103 

16,2672 

57*673 

1 


xc« 

OGAPAST 


1063 

REP 

2 

LAST 

651 

16,2673 

31*450 

1 


CAB 

OQAD 

prepare roll FDA I NEEDLE WITH FI,Y-TO 

1064 





16,2874 

0 0006 

1 


EXTEND 


error (COMMAND - MEASURED) 

106S 

REF 

B 

LAST 

904 

16,2675 

21*672 

1 


MSU 

OGANO» 


1066 

REP 

12 

LAST 

539 

16,2676 

55*476 

1 


TS 

AK 

PLY-TO OGA ERROR, SC.AT B-l REVS 

106T 





16,2677 

0 0006 

1 


Extend 


PREPARE ROLL DAP PHASE PtANE OGAERR 

1068 

REP 

2 

LAST 

686 

16,2700 

7 7705 

0 


MP 

-BIT14 


1069 

REP 

1 



16,2701 

55*674 

1 


TS 

OGAERR 

PHASE-PLANE (FLY-PROM) OGWEHROR, 

aioto 











SC.AT B+o REVS 

1071 

REP 

27 

LAST 

779 

16,2702 

3 6214 

0 


CAP 

THREE 

SET UP ROLL DAP TASK (ALLOW SCFB TI.ME) 

1072 

REF 

43 

LAST 

904 

16,2703 

0 5140 

1 


TC 

WAITLIST 


1073 

REF 

8 

LAST 

904 

E6,1742 




E8ANK= 

BzERO 


1074 

REF 

1 



16,2704 

03313 

0 


ZCADR 

RttLOAP 


1074 

REF 

1 



16,2705 

34066 

0 





1075 

REP 

34 

LAST 

901 

16,2706 

0 4633 

0 

NEEDCEUP 

TC 

ibnkcail 

DO A NEFJXES IRWTE (RETURNS AFTER CADR) 

1076 

REF 

6 

LAST 

901 

16,2707 

42404 

1 


CADR 

NEEDIER 

(NEED(ES RESTARTS ITSEIE) 
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L 

TVlSXECUrlVB 








OSEH 0 .S PAGE NO. 3 E6 S3 

107T 

IBP 

33 

lAsr 

902 

16,2710 

3 4676 

1 

vahoains cap 

BIT13 

OBQC EmiNE-<W BIT TO INHIBIT VARIABLE 

1070 



lAsr 


16,2711 

0 0006 

t 


EXTB© 

GAINS AND MASS IP l^GINE OFE 

1079 

IBP 

28 

902 

18,2712 

02 011 

0 


RAND 

DSALMCUT 

CHANNEL 11 

1080 

REP 

193 

LAST 

901 

16,2713 

10 000 

0 


CCS 

A 

1081 

HEP 


LAST 


16,2714 

1 2720 

1 


TCP 

*4 

CN , SO CK TO update GAINS AND MASS 

1002 

37 

702 

16,2715 

3 4711 

1 

♦5 

CAP 

TWO 

OPP, SO BYPASS MASS/QAIN UPDATES, 

10821 

HEP 

3 

LAST 

852 

16,2716 

55-661 

0 


TS 

TVCEXPHS 

also entry FRCM CCS below with 

10822 

REP 

1 



18,2717 

1 2750 

0 


TCP 

SHT/CQR 

VfNXR = -0 (V97 R40 ENGFAIL) 

10823 

HEP 

5 

LAST 

901 

16,2720 

11«653 

1 


CCS 

VCNTH 

TEST FOR GAIN UPDATE TIME 

10824 





16,2721 

1 2725 

1 


TCP 

+4 

not yet 

10825 

HEP 

1 



16,2722 

1 2731 

1 


TCP 

OMNCHNO 

NOW 

108252 




16,2723 

1 27 23 

1 


TCP 

+0 

NOT UfflJ 

108253 BEP 

1 



16,2724 

1 2715 

1 


TCP 

VAHQAINS +5 

NO, LOmajST (S40.8 R40) 

10826 

REP 

3 

LAST 

870 

16,2725 

55«663 

1 

♦4 

TS 

VCNTRTMP 

protect vcntr and 

10827 

HEP 

13 

LAST 

902 

16,2726 

31«474 

1 


CAE 

C344AS3 

C®WASS DURING AN IMPULSIVE BURN 

10828 

HEP 

9 

LAST 

902 

16,2727 

55«662 

0 


TS 

MASSTMP 

10829 

REP 

1 



16,2730 

1 2741 

0 


TCP 

EXECCOPY 


1085 

HEP 

35 

LAST 

904 

16,2731 

0 4633 

0 

TC 

ibnkCall 

update IXX, lAvG, lAvO/TLX 

1086 

HEP 

1 

LAST 


16,2732 

13243 

0 


CADR 

PIXCw 

MASSPROP ENTRY (ALREADY INITIALIZED) 

1087 

HEP 

2 

900 

16,27 33 

0 3145 

1 


TC 

S40.15 

UPDATE i/CCNACC, vARg 

1089 

REP 

3 

LAST 

900 

16,2734 

4 1647 

1 


Cs 

TBMxrr 

update mass for next 10 SEC. OF Burn 

1090 

HEP 

14 

LAST 

905 

16,2735 

6 1474 

1 


AD 

CSMASS 

1091 

RH' 

10 

LAST 

905 

18,2736 

550.662 

0 


TS 

MASSTMP 

KQ B+i6 

1092 

HEP 

2 

LAST 

901 

16,2737 

3 4374 

0 


CAF 

nineteen 

reset the VARIABl^-QAIN UPDATE COUNTER 

1093 

REP 

4 

LAST 

905 

16,2740 

55«663 

X 

NOUPDATB TS 

VCNTRTMP 

(CCINTDOwN, FRCM VARGA INS 4 - 1 ) 

1094 

REP 

4 

LAST 

905 

16,2741 

25«661 

1 

EXECCOpy 

INCH 

TVCEXPHS 

restart-protect the COPYCYCIE (l) 

1095 

REP 

11 

LAST 

905 

16,2742 

310.662 

1 


CAB 

MASSTMP 

CSMMASS kg B+16 

1096 

HEP 

15 

LAST 

905 

16,2743 

550.474 

0 


TS 

C»MASS 

1097 

REP 

5 

LAST 

905 

16,2744 

310.683 

0 


CAE 

VCNTRTMP 

VCNTR 

1098 

REP 

8 

LAST 

903 

16,2745 

550.653 

1 


TS 

VCNTR 


10982 

REP 

8 

LAST 

901 

16,2748 

55»444 

0 


TS 

V97VQ<TR 

FOR BIGFAIL (R41) MASS UPDATES AT SPSOFP 

1099 

REF 

5 

LAST 

905 

16,2747 

250.661 

1 


INCR 

TVCEXPHS 

COPYCYCIE OVER (2) 

1100 

REP 

24 

LAST 

901 

16,2750 

II0.447 

0 

arr/coR 

CCS 

CNTR 

check for SwnCHOVBR/CG.CORHECTICN 

1101 





16,2751 

1 2755 

0 


TCP 

*4 

NOT YET 

1102 

REF ■ 

1 



16,2752 

1 2773 

1 


TCP 

SWTCHOm 

NOW 

1103 

REP 

1 



16,2753 

1 2761 

X 


TCP 

repqtfk 

PRIOR SWITCHOVER (OR NCNB) 

1104 

HH’ 

2 

LAST 

905 

16,2754 

1 2773 

1 


TCP 

SWTCHOVR 

NOW ( 1/2 SEC SWIICHCVER, CNI.Y) 

1105 

REP 

2 

lAST 

103 

16,2755 

550.707 

1 

♦4 

TS 

CNTRTMP 

COKT DQ?N 

1106 

REP 

14 

LAST 

848 

16,2756 

3 4716 

0 


CAF 

SEVEN 

setup TVCEXPHS FOR ENTRY AT CNTRCOPY 

1107 

REP 

6 

LAST 

905 

18,2757 

550.66 1 

0 


TS 

TVCEXPHS 
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TVOEXECUriVE 








USBR.S PAOE NO. 4 Be S3 

IlOB 

REP 

1 



16,2760 

1 3122 

1 


TCP 

orraeopY 


1109 

REP 

5 

LAST 

901 

16,2761 

31«652 

1 

RBPC«EJ< 

CAE 

HEPPRAC 

OIBCK POR REPETITIVE UPDATES 

1110 





16,2762 

0 0006 

1 


EXTEND 



1111 

REP 


LAST 


16,2763 

6 2770 

0 


B2MP 

♦5 

NO (NBO OR ♦-ZERO) 

1112 

2 

100 

16,2764 

55«446 

1 


TS 

T»tPDAP ♦! 

YES, SET UP COBRECTICN PHACTICN 

1113 

REP 

22 

LAST 

891 

16,2765 

3 4715 

0 


CAP 

PIVE 

ADVANCE TVCEXPHS 

1114 

REP 

7 

LAST 

905 

16,2766 

55«661 

0 


T3 

TVCEXPH3 


1115 

REP 

1 



16,2767 

1 3053 

0 


TCP 

corsetup 


1116 

REP 

1 



16,2770 

3 4707 

0 

♦s 

CAP 

Biarr 


1117 

REP 

6 

LAST 

906 

16,2771 

55«661 

0 


TS 

TVCBXPHS 


1118 

REP 

1 



16,2772 

1 3125 

0 


TCP 

SIWUP 


1119 

REP 

34 

LAST 

905 

16,2773 

3 4676 

1 

srrcMcvR cap 

BIT13 

CHECK ENOINE-CN BIT, NOT PEBMITTING 

1120 





16,2774 

0 0006 

1 


Exrero 


switchover DURING BNGINE-SHUIDOWN 

1121 

REP 

29 

LAST 

905 

16,2775 

02 on 

0 


RAND 

DSALMOrr 

WILOFP 

1122 

REP 

194 

LAST 

905 

16,2776 

10 000 

0 


CCS 

A 


1123 





16,2777 

1 3001 

1 


TCP 

*2 

CK TO SWITQICVEH 

1124 

REP 

2 

LAST 

904 

16,3000 

1 3142 

1 


TCP 

TVCEXPIN 

dcnt switchover, TEIWINATE 

11242 

REP 

12 

LAST 

900 

16,3001 

4 0105 

1 


C3 

PLAOSHDg 

ffiT switchover FLAG (SWTOVBR) FOR DWNLNK 

11243 

REP 

37 

LAST 

900 

16,3002 

7 4674 

1 


MAac 

BIT15 

AND POST-BuIW TRIM UPDATES (Sffi 

11244 

REP 

13 

LAST 

906 

16,3003 

26 105 

1 


ADS 

PLAa»BD9 

..BESTTRIM.. (P40-P4T)) 

1125 

REP 

61 

LAST 

900 

16,3004 

31«466 

1 


CAE 

DAPDATRl 

SWITCHOVER CHECK FOR LEM-OFF/CN 

1126 

REF 

35 

LAST 

906 

16,3005 

7 4676 

0 


mask 

BIT13 

(note, aiOWS LEM-OPF) 

1127 





16,3006 

0 0006 

1 


EXTBff) 



1128 

REP 

1 



16,3007 

1 3013 

1 


BzP 

OAINDCWN 

I.B4-CN FUU, SWlTCHOVER/CG.CORRECmCN 

1129 

REP 

10 

LAST 

848 

16,3010 

3 4710 

0 


CAP 

POUR 

LEM-OFF NO SWITCHCX^R, JUST CG.CORH.- 

1130 

REP 

9 

LAST 

906 

16,3011 

55«661 

0 


TS 

TVCESfFHS 


1131 

REP 

1 



16,3012 

1 3050 

0 


TCP 

T&«>SBT 


1132 

REP 

2 

LAST 

900 

16,3013 

31«420 

0 

C5AINDCWN CAE 

EnvCDT/2 

LEM-CN DROP (JAIN BY (CLDTVCDT/8CS)SO 

1133 





16,3014 

0 0006 

1 


EXT®ro 



1134 

REP 

33 

LAST 

888 

16,3015 

7 4706 

0 


MP 

BITS 


1135 

REP 

195 

LAST 

906 

16,3016 

22 000 

1 


UCCH 

A 


1136 





16,3017 

0 0006 

1 


EXTEND 



1137 

REP 

196 

LAST 

906 

16,3020 

7 0000 

0 


MP 

A 


1136 

REP 

197 

LAST 

906 

16,3021 

22 000 

1 


LXCH 

A 

(TVt»T/8CS)SC», SC .AT Bt2 

1139 





16,3022 

0 0006 

1 


EXTEND 


PREPARE NEW (JAIN CCNSTANT 

1140 

REP 

3 

LAST 

900 

16,3023 

7 1646 

0 


MP 

KTLX/I 


1141 





16 , 3024 

20 001 

1 


DOOUBL, 



1142 





16,3025 

20 001 

1 


DDQJBIj 



1143 

REP 

2 

LAST 

103 

16,3026 

55«702 

1 


TS 

TKTLX/I 

(FOR copycraj?) 

1144 

REP 

10 

LAST 

906 

16,3027 

25*661 

1 

srrcopY 

INCH 

TVCEXPHS 

RES'MBT-PROTECrr THE COpYCTfClE (3) 
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USR.3 PACE NO. 


Be S3 



1145 

KP 

1 



16.3030 

3 7677 

0 


CAP 

0Cr37774 

L»4-CN (HLY TS TI^ER 

1140 

REP 

5 

LAST 

002 

16,3031 

55«635 

1 


TS 

TSTVCT>T 


1150 

SHE 

2 

LAST 

901 

16,3032 

31«414 

1 


CAB 

OCPHWB +1 

PHEPABB KPRIMEDT FOR SOMS DAP, USINO 

1151 





16,3033 

6 0000 

1 


DO^LE 


1152 





16,3034 

6 0000 

1 


DCXBLB 



1153 

MB' 

6 

LAST 

901 

16,3035 

55«644 

1 


TS 

KPBimiT 

CKPRI(«)T *1 is ZERO) 

A1154 











SCALING OP GBGWC HAS CHANGED, BUT NO 

A1155 











change op registers, rate CCM4ANDS 

All5a 











ARB LOf BY (OLD TVt»T)/80. UNTIL 

A115T 











NEXT S40.8 CCMPUTATICN, WHICH USES 

AllSS 











THE NEW KPRI>eDT. 

1159 

REP 

3 

LAST 

906 

16,3036 

31«702 

0 


CAE 

TKTLX/I 

GAIN CCNSTANT 

1100 

HBP 

4 

LAST 

906 

16,3037 

55«648 

0 


TS 

KTUt/I 


11002 

REP 

3 

LAST 

905 

16,3040 

0 3154 

1 


TC 

S40.15 +7 

update VARC (CNLY, no change 1/CCNACC) 

1101 

REP 

3 

LAST 

245 

16,3041 

11«614 

1 

STRkCALL CCS 

STRCKBH 

CHEC^C STRCKER FOR VERB 68 INDICATION 

1102 





16,3042 

1 3047 

0 


TCP 

+5 

STHQCE TEST IN PROGRESS (flOMS DAP) 

1103 





16,3043 

1 3047 

0 


TCP 

+4 

♦0 SAYS NO verb 6 B YET 

1104 





16,3044 

1 3047 

0 


TCP 

+3 

SIBCKE TEST IN PROGRESS CSOMS DAP) 

1105 

RBP 

2 

LAST 

906 

16,3045 

3 4707 

0 


CAP 

BIGHT 

-0 SAYS PRIOR VERfles, SO START 

1160 

RHE 

3 

LAST 

901 

16,3046 

55«664 

0 


TS 

STWCTL'E 

STRCKE TEST IN 4 SECCNDS 

HOT 

HEP 

11 

LAST 

906 

16,3047 

25*661 

1 

+543 

INCH 

TVCEXPHS 

COPYCYCLE OVER ( SWTCHCVR ENTRY NESCT) (4) 

1100 

ter 

1 



18,3050 

31.422 

1 

TEMP set 

CAE 

ECORPHAC 

set up correcticn FHACTICN 

1109 

RBE 

3 

LAST 

906 

16,3051 

55*446 

1 


TS 

TSMPIMP +1 


IITO 

REE 

12 

LAST 

907 

16,3052 

25*661 

1 


inch 

TVCEXPHS 

ENTRY FRCM REPCHECk AT NEXT LOCATION ( 5 ) 

llTl 

BBP 

62 

LAST 

906 

16,3053 

31«466 

1 

CORSSTUP CAB 

rWPDATRl 

check J=CR La-I-OFP/CN 

11T2 

HEP 

36 

LAST 

906 

16,3054 

7 4676 

0 


mask 

BITT3 

(NOTE, aiOwS L©(-0FP)’ 

11T3 





16,3055 

0 0006 

1 


EXTEND 



11T4 





16,3056 

1 3060 

0 


BzP 

*2 

LEW IS CN, PICK UP TEMPDAP+i 

11T5 

REP 

4 

LAST 

907 

16,3057 

31*446 

0 


CAE 

TEMPDAP ♦! 

LEM IS OPP, PICK UP 2 (TEMPDAP+ 1 ) 

IITO 

HEP 

5 

LAST 

907 

16,3060 

6 1446 

0 


AD 

TEMPDAP ♦! 


IITT 

HEP 

6 

LAST 

907 

16,3061 

55*445 

1 


TS 

TEMPDAP 

(XJ.CORR USES TRIPOAP 

11T8 

REP 

10 

LAST 

901 

16,3062 

3 7716 

0 


CAP 

NEGOiE 

set UP l>DR CNTR = -1 (anCHOVR DONE) 

IITO 

BP 

3 

LAST 

905 

16,3063 

55*707 

1 


TS 

CNTRIMP 

(COPYCYCTE AT .CNTRCOPY. ) 

1100 





16,3064 

0 0006 

1 

OCJ.CORR 

Extend 


PITCH TRIfUTRACKER CORRECTION 

1181 

REP 

3 

LAST 

901 

16,3065 

3 1626 

1 


DCA 

PDELGPF 


1182 

HEP 

2 

LAST 

103 

16,3066 

53*704 

1 


DXCH 

PACTIMP 


1183 

RBP 

IT 

LAST 

901 

16,3067 

4 1425 

1 


cs 

pactcfp 


1184 

BfiP 

4 

LAST 

901 

16,3070 

6 1621 

0 


AD 

DetJ>BAR 


1185 





16,3071 

0 0006 

1 


Extend 





I 
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BEF T lAST 90T 


16.3072 T 1445 1 

16.3073 20 001 1 


16,3074 20 001 1 


MP IHHPnAP 
ODOm, 

DDOUBL 


1189 

RBP 

3 

lAST 

907 

16,3075 

21«704 

1 


DAS 

pactimp 



1190 





18,3076 

0 0006 

1 


EXTH® 



1191 

REP 

3 

LAST 

901 

16,3077 

3 1630 

0 


DCA 

YDBLCFP 



1192 

REP 

2 

LAST 

103 

16,3100 

53«706 

0 


DXC« 

YACTIMP 



1193 

REP 

ft 

LAST 

901 

16,3101 

4 1426 

1 


C3 

yactofp 



1194 

REP 

4 

LAST 

901 

16,3102 

6 1623 

1 


AO 

DELYBAR 



1195 





16,3103 

0 0006 

1 


EXTEND 




1196 

REP 

8 

LAST 

908 

16,3104 

7 1445 

1 


MP 

TBIPDAP 



119T 





16,3105 

20 001 

1 


DDOJt 




1198 





16,3106 

20 001 

1 


DDCUBL 




1199 

IffiP 

3 

LAST 

908 

16,3107 

21«706 

0 


DAS 

YACTTMP 



1200 

RE3? 

13 

LAST 

907 

16,3110 

25*061 

1 

CORCOPY 

INCH 

TVCEXPHS 

HESlART-PROreCT THE COPYCYCLE 

(6) 

1201 





16,3111 

0 0006 

1 


EXTEND 


TRIM-ESTIMATES, AND 


1202 

RBP 

4 

LAST 

908 

16,3112 

3 1704 

0 


DCA 

PACTTMP 



1203 

RBP 

18 

LAST 

907 

16,3113 

■55*425 

1 


TS 

PACtOFP 

TRIMS 


1204 

REP 

4 

LAST 

907 

16,3114 

53*626 

0 


DXCH 

PDELOFF 



1205 





16,3115 

0 0006 

1 


Extend 




1206 

REP 

4 

LAST 

908 

16,3116 

3 1706 

1 


DCA 

YACTTMP 



1207 

REP 

7 

LAST 

908 

16,3117 

55*426 

1 


TS 

TACTOFP 



1208 

REP 

4 

LAST 

908 

16,3120 

53*630 

1 


DXCH 

YDELOPF 



1209 

RBP 

14 

LAST 

908 

16,3121 

25*661 

1 


INCH 

TVCExPHS 

COPYCYCLE O^R ( srr/COR ENTRY NEXT) 

( 7 ) 

1210 

REP 

4 

LAST 

907 

16,3122 

31*707 

0 

CNTRCOPY CAE 

QITRTMP 

UPDATE CNTR (RESTARTS DC, PaiXWS CpYCY) 

1211 

REP 

25 

LAST 

90S 

16,3123 

55*447 

0 


TS 

cntr 



1212 

REP 

IS 

LAST 

908 

16,3124 

25*601 

1 


INCR 

TVCEXPHS 

ENTRY FROM BEPCHECK AT NEXT LOCATION 

<8) 

1213 

REF 

4 

LAST 

907 

16,3125 

11*664 

0 

STHKUP 

CCS 

STRGTIME 

CHB(3k STOCKB TEST START TIME 


1214 





16,3126 

1 3131 

0 


TCP 

♦3 

IN 4 SEC DELAY AFTER SWITCHD^R 


1215 

RBP 

1 



16,3127 

1 3133 

1 


TCP 

STBKNOW 

SWRT STRDCB TEST NO? 


1216 

RBP 

3 

LAST 

906 

16,3130 

1 3142 

1 


TCP 

TVCEXFIN 

NO STRDCE TEST REOUBST YET 


1217 

REP 

2 

LAST 

103 

16,3131 

55*710 

1 


TS 

STRKTJMP 

CCUNT DOWI 


1218 

REF 

1 



16,3132 

1 3137 

0 


TCP 

STRCICPY 



1219 

REP 

5 

LAST 

552 

16,3133 

31*412 

1 

STBKNW 

CAE 

estrcker 

START THE STRQCB TEST NCVf 


1220 

REP 

4 

LAST 

907 

16,3134 

55*614 

1 


TS 

strcker 



1221 

REP 

17 

LAST 

907 

16,3135 

3 7716 

0 


CAP 

NBCXNE 

kill the stroke test cau. 


1222 

REF 

3 

LAST 

908 

16,3136 

55*710 

1 


TS 

STRKTIMP 



1223 

REP 

16 

LAST 

908 

16,3137 

25*661 

1 

STRClCpy 

INCR 

TVCEXPHS 

rbsiaht-protect the copyt)yciE 

( 9 ) 
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L 

TVCEXEtXlTIVE 







1224 

REE 

4 

LAST 

908 

16,3140 

31«710 

0 

CAB 

STHKTIMP 

1225 

REE 

5 

LAST 

908 

16,3141 

SS«664 

0 

T3 

STHKTIME 

1226 

BEE 

158 

LAST 

901 

16,3142 

3 4T14 

1 

TVCEXEIN CAP 

2ERO 

122T 

REE 

IT 

LAST 

908 

16,3143 

55<661 

0 

TS 

TVCEXFHS 

1228 

REE 

45 

LAST 

T8T 

16,3144 

1 5213 

0 

TCP 

WSKOVER 


USERaS PACE NO. T E6 S3 

BESET TVCEXPHS 

OVER and out 
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P1229 NAie S40.15 INERTIA CCMPlnATIONS 


1230 

REP 

2 

LAST 

103 

Be. 1650 




EBAIBC: 1/CCNACC 


1231 

BSP 

3 

LAST 

691 

16.3145 

31-470 

0 

S40.15 

CAB IXX 

CCMPUIE lAXKAOC (RACC) IXX SC.AT 

1232 





18.3146 

0 0006 

1 


BXTBTO 

B4.20 Kd M SCO 

1233 

HEP 

1 



16.3147 

7 3164 

0 


MP 2P1/H 

2PI/M, SC .AT 1/(B*8 N Ml 

1234 





16,3150 

20 001 

1 


DDOUBL 


1235 


' 



16,3151 

20 001 

1 


nOGuBL 


1236 





16,3152 

20 001 

1 


DOOlBL 


123T 

BSP 

3 

LAST 

910 

16,3153 

55-650 

1 


TS 1/CaiACC 

SC.AT B*9 sec sod / REV 

1243 

REP 

5 

LAST 

907 

16,3154 

31-846 

1 

♦7 

CAB KTUI/I 

CCMPUIB VARC, scaling IN THE KTLX/I FOR 

1244 





16,3155 

0 0006 

1 


BXTBTO 

LM-0PP,CN. ENTRY PRCM SWITCHCVER 

1245 

BEP 

1 



16,3156 

7 1472 

0 


MP lAvO/TlJC 

SCALED AT B*2 SECCNDS-SQOARED 

1246 





16,3157 

20 001 

1 


DDClEL 

SCALING 

124T 





16,3160 

20 001 

1 


DOCXBL 


1248 





16,3161 

20 001 

1 


DOOJBL 


1249 

BSP 

3 

LAST 

104 

16,3162 

55-651 

0 


TS VARC 

L&I-OPP KPGENsCo) OR LEM-CN VARK(O) 

1250 

BEF 

ITS 

lAST 

842 

16,3163 

0 0002 

0 


7C 0 


1251 





16,3164 

33074 

1 

2PI/M 

BBC .00331017 B+e 

2PI/M, SC.AT i/(B+b N M) 
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L TVCWSSPBOP 


USBR.S PAOB NO. 1 Bo S3 


RIOOO PROGRAM NA^E msSPROP 

RlOOl IjOO section TVCMISSPROP PR00RAM>EH. . .MBlANStN IBMEL, SCHLUNDT) 

R1002 PUNCtIONAI, DesCRIPTICN’ 

R1003 MlSSPROP OPBHAIBS IN TOO MGDS3’<l)IP La4 MASS OR CCNPIGUHATICN ARE UPDATED (MASSPROP DOES NOT TEST 

R1005 bob THIS) THE ENTIRE PROGRAM MUST BE BUN THROUtM, BREAKPOINT VALUES AND DERIVATIVES OP THE OUTPUTS WITH 

RlOOT respect to CSl MASS BEING CALCULATED PRICSl TO CALCULATKN OP THE OUTPUTS. (rIOTHERWISB, THE OUTPUTS CAN BE 
B1009 calculated USING PREVIOUSLY CCMPUIED BREAKPOINT VALUES AND DERIVATIVES. 

R10095 CALLING SECIUB4CB3 

RIOIO IB L»I MASS OR CCNBIGURATICN HAS BEEN UPDATED, TRANSBER TO MASSPROP, OIHEIWISB TRANSPER TO BlyCw. 


R1012 

L 

IC bankcall or ibnkcall 

R1013 

L*1 

CADB • MASSPROP 

R1014 


OR 

R1015 

L*1 

CADR BIxO» 

R1016 

L+2 

RBTUlWS VIA 0 


RIOIT CALLED IN PARTICULAR BY DCNQUN4T UOB) AND TVCEXECUTIVE (T«a<) 
B1019 JOBS OR tasks INITIATED - NONE 
R1020 SUBROUTINES CALLED - NQIE 


RIO21 ERASABLE INITIALIZATION REQUIRED 


R1022 LEHMA3S MUST CONTAIN LfM MASS SCALED AT B+ie IN KILOGRAMS 

HI023 CS^MASS MUST CONTAIN OS'! MASS SCALED AT B»16 IN KILOGRAMS 


R1024 

DAPOATRl MUST BE SET TO INDICATE 

VBIICLE CCNBIGURATICN. 

R10241 

bits (15,14,13) = < 0 

,0,1) 

LEM OPP 

R102411 

( 0 

,1,0) 

LEM CN (ASCNT,DSCNT) 

R102412 

( 1 

,1,0) 

IfiA CN (ASCNT ONLY) 

R1025 

ALARMS - NONE 



R1026 

EXIT - TC Q 




RIO27 OUTPUTS’ 


R1028 
R1029 
HI 030 
R1031 


(l)lxx, SINGLE PRECISION SCALED AT B+20 IN KG-M SO. 
l2)IAVO, SINGLE PRECISION SCALED AT B,.20 IN KG-M SO. 
(3 )IAvG/TLX, SINGLE PRECISION, SCALED AT BtZ SEC-SOD 
THEY ARE STORED IN CCNSECurIVE REGISTERS IXXO, IXXl, IXX2 


R10311 CONVERSION BAC?rOR > (SlUG-ETSQ) = 0.73T562 <KG-MSO) 
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TVCMASSPBOP 


U98US PAGB NO. 


OUTPUTS AR8 calculated AS FCUXKI3 ' 


CD IP LEM DOQCED, L»MASS IS FIRST ELIMINATED AS A PARA^«TER 


VAR3T0 = INTVAUEo ♦ L£»«3S(SLOPEVALo) 
VAHsn = INTVALUBi «. L£>WASS(SLOPEVALi) 
VAHST2 = INTVALUE2 ♦ LBWASS(SL0PEvAL2) 


ixx breakpoint value 
lAVO breakpoint value 
iavo/tlx Breakpoint vaub 


VARST3 = INTVALUE3 ♦ L®MASS(SL0 PEvAL 3) 
VARST4 = INTVALUE4 ♦ La>MASS(SLOPEVAL4) 


lAVG/TLX SLOPE FOR CSWAASS S 33956 LBS ( 8PS S loOOO LBS) 
lAvO SLOPE FOR CgyMASS S 3395a IBS < SPS S lOOOO LBS) 


VARSTS = INTVALUE5 ♦ LB«MASS(SLOPEvAL 5) 


SLOPE FOR ALL VAUBS OP C^WASS 


VARSTa = INTVALUEa + L£^^^ASS(aX)PEvALa) 
VARSTT = INTVALIBt + LeMASS(SLOpevALT) 


lAvO SLOPE FOR C»MASS ± 33956 LBS ( SPS ± 10000 LBS) 

IAVO/TLX aXIPE FOR CSMASS ± 33956 LBS ( SPS ± 10000 LBS) 


VABST8 = INTVALUEa »■ L£M4ASS(SLOPEvAL8) 
VARST9 = INTVALUE9 ♦ LEyMASSCSLOPBvALg) 
<2 ) IP IBM NOT docked 


lAvO DeCR0®IT TO BRCPT VALUE WHEN LEW DSCNT STAGE OFF 

IAvO/TLX DECREWENT to BRCPT value when lew DSCNT stage OFF 


VARSTO = NQLEWVALO WHERE THE hBANINO AND SCALING OP VARSTO 
TO VARSTg are THE SAME AS OIVEI ABO/E 


NOIE... FOR THIS CASS, VARST8,9 HAVE NO 
VAHST9 = NQLEVAL9 meaning (THEY ARE CCMPUIED BUT NOT USED) 
13) THE PINAL OUTPUT CALCULATIONS ARE THEf DONE 


IXXO = VARSTO + (CSWASS <■ NEGBPW)VARST5 


IXXl = VARSTl <■ (CS>MASS ♦ NBCBPW)VARST<4 OB 6) 


IXX2 = VARST2 * (CSWASS + NB(BPW)VARST( 3 OR 7) lAVG/TLX 
THE DATA USED CAMS FRCM CSW/IM SPACECRAFT OPERATICNAL DATA BOCK. 
VOL. 3, NASA DOCcTtNT SNA-8-D-02T CMARCH 1968) 


PERTINENT MASS DATA 


CSM WEIGHT (PULL) 64100 LBS . 

(BWPTY) 23956 LflS 
UEM WEIGHT (FULL) 32000 LBS 
(BWPTY) 14116 IBs 


(WEIGHTS ARE FRCM A)ffiNDMENT Jl (APRIL 24,1968) TO ABO/E DATA BOCK) 


I 


I 
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tt<z0o_0 BArv wr^ 


1089 





25,3766 




bank 

25 


lOTO 

HBP 

1 


• 

05,2000 




SILOC DAFWlSS 


lOTl 





05,3207 




bank 



10T2 

RHP 

9 

LAST 

904 

E6,1742 




EBANK: 

bzero 


10T3 

REP 

1 







COUNT* 

t$/MASP 


1074 

REP 

2 

LAST 

439 

05,3207 

3 4334 

1 

MASSPROP CAP 

NINE 

MASSPROP USES TVC/RCS INTEBUPT TEMPS 

1075 

REP 

2 

LAST 

101 

05,3210 

55«50a 

1 


TS 

PHI333 

SET UP TEN PASSES 

1078 

RBP 

83 

LAST 

907 

05,3211 

31«466 

1 

LE4IEST 

CAB 

DAPOATHl 

determine La>t STATUS 

1077 

REP 

37 

LAST 

907 

05,3212 

T 4676 

0 



BIT13 


1078 





05,3213 

0 0006 

1 


BXTB© 



1079 

REP 

1 



05,3214 

1 3220 

0 


BZP 

lEMYES 


1080 

REP 

3 

LAST 

913 

05,3215 

51«506 

0 

LBWO 

INDEX 

PHI333 

LEM NOT ATTACHED 

1081 

REF 

1 



05,3216 

3 3304 

0 


CAP 

N0LH1VAL 


1082 

HEP 

1 



05,3217 

1 3230 

1 


TCP 

STOINST 


1083 

HEP 

5 

LAST 

274 

05,3220 

31«473 

0 

LMfES 

CAE 

La44ASS 

LHM IS ATTACHHD 

1084 





05,3221 

6 0000 

1 


DOUBLE 



1085 





05 , 3222 

0 0006 

1 


EXTEND 



1088 

RBP 

4 

LAST 

913 

05,3223 

5 1506 

0 


INDEX 

PHI333 


1087 

REP 

1 



05 , 3224 

7 3326 

1 


MP 

SLOPEVAL 


1088 





05,3225 

20 001 

1 


DDCUBL 



1089 

REP 

5 

LAST 

913 

05,3226 

51«506 

0 


INDEX 

PHI333 


1090 

HEP 

1 



05,3227 

6 3314 

1 


AD 

INTVALUE 


1091 

RHP 

8 

LAST 

913 

05,3230 

51«506 

0 

STOINST 

INDEX 

PHI333 

STORAGE INST BEGIN HERB 

1092 

RBP 

3 

LAST 

101 

05,3231 

55*511 

1 


TS 

VARSTO 


1093 

REP 

7 

LAST 

913 

05,3232 

11*506 

1 


CCS 

PHI333 

ARE ALL TEN PASSES COMPLETED 

1094 

REP 

5 

LAST 

900 

05,3233 

1 3210 

0 


TCP 

MASSPROP +1 

NO-GO DECREMENT PHI333 

1098 

RBP 

84 

LAST 

913 

05,3234 

11*466 

0 

DXTBST 

CCS 

DAPDATRI 

IP NEG, BIT15 IS 1, LEM DSCNT STAGE OFF 

1099 

RBP 

2 

LAST 

905 

05,3235 

1 3243 

0 


TCP 

Pixcvr 


1100 

lEF 

3 

LAST 

913 

05,3236 

1 3243 

0 


TCP 

Pixcw 


1101 

REP 

4 

LAST 

913 

05,3237 

53*522 

1 


DXCM 

VARSTO +8D 


1102 

REP 

5 

LAST 

913 

05,3240 

21*513 

0 


DAS 

VARSTo +1 


1103 

REP 

1 



05,3241 

3 3341 

1 


CA 

DXITPIX 


1104 

REP 

8 

LAST 

913 

05,3242 

27*520 

0 


ADS 

VARSTO +7 


1105 

REP 

35 

LAST 

900 

05,3243 

3 4711 

1 

PIXO» 

CAP 

BIT2 

CCMPUTATICN PHASE BEGINS HERE. SET UP 

1108 

REF 

8 

LAST 

913 

05,3244 

55*506 

1 


TS 

PHI333 

THREE PASSES 

1107 

REP 

2 

LAST 

101 

05 , 3245 

55*507 

0 


TS 

PSI333 


1108 

REP 

16 

LAST 

905 

05,3246 

31*474 

1 


CAE 

CE^^^ASS 

GET DBl.TA CSM WEIGHT - SIGH DETERMINES 

1109 

rep 

1 



05,3247 

6 3340 

0 


AD 

NECTPW 

SIXIPE IXCATICNS. 

1110 





05,3250 

6 0000 

1 


DOUBLE 



1111 

REP 

2 

LAST 

101 

05,3251 

55*510 

0 


TS 

TEMP333 
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1112 





•5,3252 

0 0006 

1 


RCIBO 



1113 

BEF 

1 



05,3253 

6 32S6 

0 


B2IV 

PEQOSf 

determine correct slope ■■ 

1114 

REP 

3 

LAST 

316 

05,3254 

3 7715 

0 


CAP 

NEG2 


1115 

REP 

■9 

LAST 

913 

05,3255 

55«506 

1 


T3 

rHl333 


1116 

REP 

10 

LAST 

014 

05,3258 

51«506 

0 

pBomr 

INDEX 

PHI333 

ALL IS READY - CALCULATE OUTPUTS NOW 

HIT 

REP 

1 



05,3257 

31«516 

1 


CAE 

VARSTS 

GET SLJOPE 

1118 





05,3260 

0 0006 

1 


EXTEND 



1119 

REP 

3 

LAST 

913 

05,3261 

7 1510 

0 


MP 

•»«P333 

MULT by delta C»I WEIGHT 

1120 





05,3262 

6 0000 

1 


DOUBLE 



1121 

REP 

3 

LAST 

913 

05,3263 

51«50T 

1 


INDEX 

P3I333 


1122 

REP 

7 

LAST 

913 

05,3264 

6 1511 

0 


AD 

VARSTO 

ADO Breakpoint value 

1123 

REP 

4 

LAST 

914 

05,3265 

SlotSOT 

1 


INDEX 

P3I333 


1124 

IffiP 

4 

LAST 

910 

05,3286 

55«470 

1 


T3 

IXX 

****** OUTPUTS (IXXO, IXXl, IXX2) ****** 

1125 

REP 

5 

LAST 

914 

05,3287 

11«507 

0 


CCS 

P3I333 

BOCKKEEPINO - MASSPBOP FINISHED OR NOT 

1126 

IffiP 

1 



05,3270 

1 3300 

0 


TCP 

BQocEPZ 

NO-GO take care OP INDEXING REGISTERS 

112T 

REP 

65 

LAST 

913 

05,3271 

31«466 

1 


CAE 

DAPOATHl 

update WEICHT/G 

1128 

REP 

45 

LAST 

900 

05,3272 

7 4675 

0 


mask 

BIT14 


1129 

REP 

198 

lAST 

906 

05,3273 

10 000 

0 


CCS 

A 


1130 

. REP 

6 

LAST 

913 

05,3274 

3 1473 

0 


CA 

LB44ASS 


1131 

REP 

17 

LAST 

913 

05,3275 

6 1474 

1 


AD 

CaWASS 


1132 

REP 

9 

LAST 

849 

05,3276 

55«475 

1 


TS 

•BiaiT/O 

SCALED AT B+ie IN KILOGRAMS 

1133 

REF 

179 

LAST 

910 

05,3277 

0 0002 

0 

ENDMISSP 

IC 

0 


1134 

HEP 

6 

LAST 

914 

05,3300 

5S«507 

0 

BCKKEP2 

TS 

P3I333 

REDUCE PSI by CNE 

1135 





05,3301 

0 0006 

1 


EXTEND 



1136 

REF 

11 

LAST 

914 

05,3302 

27*506 

1 


DIM 

PHI333 


1137 

REF 

2 

LAST 

914 

05,3303 

1 3256 

1 


TCP 

PEOGX 
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1138 

05,3304 

00618 0 

NOLBIVAL DEC 

2S445. B-20 

1139 

05,3305 

02526 1 


DEC 

87450. B-20 

1140 

05,3306 

02352 1 


DEC 

.30715 B-2 

1141 

05,330T 

01471 1 


DEC 

1.22877 E-5 B+12 

1142 

05,3310 

00634 0 


DEC 

1.6096 B-6 

1143 

05,3311 

00612 1 


DEC 

1.54 B-6 

1144 

05,3312 

03T06 0 


DEC 

7.77177 B-6 

1145 

05,3313 

04425 0 


DEC 

3.46458 E-5 Hti2 

1148 

05,3314 

00644 1 

intvauje dec 

26850 B-20 

114T 

05,3315 

03710 1 


DEC 

127518 B-20 

1148 

05,3316 

04246 0 


DEC 

.54059 B-2 

1149 

05,3317 

02011 0 


DEC 

.153984 E-4 B+12 

1150 

05,3320 

TT501 0 


DEC 

-.742923 B-6 

1151 

05,3321 

00612 1 


DEC 

1.5398 B-6 

1152 

05,3322 

04656 0 


DEC 

9.68 B-6 

1153 

05,3323 

10372 0 


DEC 

.647825 B-4 B+12 

1154 

05,3324 

77128 1 


DEC 

-27228. B-20 

1155 

05,3325 

76261 0 


DEC 

-.206476 B-2 

1150 

05,3326 

00767 1 

SLOPEVAL DEC 

1.96307 B-6 

H5T 

05 , 3327 

15624 0 


DEC 

27.5774 B-8 

1158 

05,3330 

03054 0 


DEC 

2.3548 E-5 B+12 

1159 

05,3331 

04532 1 


DEC 

2.1777 E-9 B 4.26 

1160 

05,3332 

10433 1 


DEC 

1.044 E-3 B+b 

1101 

05,3333 

00000 1 


DEC 

0 

1182 

05,3334 

22070 0 


DEC 

2.21068 E-3 B+8 

1163 

05,3335 

03204 1 


DEC 

1.5186 E-9 B+2b 

1104 

05,3336 

77268 0 


DEC 

-1.284 B-6 

1105 

05,3337 

02476 0 


DEC 

2. e-5 B+12 

1166 

05,3340 

70364 1 

NBGBPW 

DEC 

-15402.17 B-16 

HOT 

05,3341 

75420 0 

OXlTEIX 

DEC* 

-1.88275 E-s B+12* 
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I 


TVCRBSIAKTS 


USEIUS PAGE NO. 


RlOOO NA* TVCBBSWHir BMiSIGE, CCNSISTINO OP KSIOIVC, BIABLl, 2 , CMISOur. PHSCrtC2, BTC. 

R1002 LCa section TVOEaSEOT PACKAGE SU^aXITINB DAPCSM 

R1003 MOD By B4GEL DATS ig OCT, 196T 


R1004 PIWCTIONAI, DESCRlPiniOB 


ABESTAHT-PROOPS BEH: TVC daps, INCUPINa pikmiap, tacdap, 
TVCEXECuriVE, smn, dap, tvcinita, tvcdapgk, and stbcke test 
ATVC restarts OEaafE special CCNSID3RATICK IN SEVERAL AREAS. 
restart DcrsJ-ini'O: is important bscausb op the transibits introduced 
B y the thrust tssetor return to TKS actuator ksckanical nulls 
POLLOWIKO TVC- AKD) O?TICS-EHR0R-C0imSH-DI®<ABLES (CHANNEL 12). 

TVC USES A anCSrURE op waitlist, T5. TB, and JOB CALLS. THERE IS 
PILTBR MSMCOT Am? TO TTH ORDER) TO EE PHOIBCIED IP WILD TRANSIENTS 

Are to BE AvoEara. several counters are involved for tmino tvc 

EVEJ(TS SIXJI AS Sf/inCHGVBR AND STRCKB TEST STARTUPS AND RE-STARTUPS. 
THE TVC GAINS OCM DECRBOTTED. IKE GIxaAL TRIM ESTIMATORS AND THE 
fiaoy Axis ATTHECT ERROR INTEGRATORS INVOLVE DIGITAL SUM4ATICN. 
digital DIFEEGStnmVTORS are INVOLVED IN THE BCDy AXIS RATE ESTIMA- 
TIONS AMJ IN TEH! aUTPUITINO OP ACTUATOR (XKMANDS. THERE IS AN 
OPPSET-TRACkED-BTILTER TO PHOIECt. EIC., BIC. 

WHOSE OJANTmiS WHICH MUST BE PRCHECIED ARB STORED IN laiPORARy 
registers AS TEEar ARB computed, POR UPOATTNG THE REAL REGISTERS 
DURING (X5>yC2nifi!S_ 

WHB several OC3»£irTCl.ES ARE EACH PROIBClED By PHASE POINTS AT THEIR 
BBGINNINO ANDAtlTTrlEIR TEfWINATICN. TKS PHASE POINTS ARB SIMPLY 

..incr. . iNSTncnrccNS, either ..lncr tvcexphs.. por copycycLEs 

IN THE TVCExEUjinWe', OR ..INCR TVCPKAffi.. POR THE PITCH AND YAW 
COpyCyCLES. IHEEJXING GN each op these POINTERS THEN PERMITS A 
RETUfW TO THE JffSCOPRIATB RESTART POINTS. 

*IP A RESTART (EDrtilC« DURING EITHER COPWWXE, THAT COpyCyCLE IS 

CCMPLBTH). TKESTEB' NORMAL TVCINIT 4 DAPINIT PIIQOAP STARTUP 

SEQUENCE IS CHULED) UPCN TO GET THINGS (MING AGAIN. 

*IVC-a«BLE AND USTICS-ERROR-CCUNTER ENABLE FUST BE SET ASAP 
(ALLOWING POR URSTEDURAL DBLAys) . lKa( THE ENGINES ARB COMMANDED 
TO THE P,yACTCT' TEIM VALUES. THE DAPS ARE THai BEADy TO GO CN THE 
AIR, WITH THE tGSmAR STARTUP SEO^OB, EITHER AT MRCLEAN FOR A 
COMPLETE INITinUiaWICN OR AT TVCINIT 4 FOR A PARTIAL INITIALIZATION 
♦FOR restarts ieiies to the semting op the T5 bits in igwover the 
PBB 40.6 SECTIIW 03^ S40.6 TAKES CARS OF RS-ESIABLIaiING TRIMS. 

♦IF A restart fflDDiJEB; DURING THE IVCExBC IVCBXFIN SEOUEyCE THE 

CCMPUIATlaiS >wniLIL be CCMPLETS), SIARTING AT THE APPROPRIATE RESTART 
POINT, AFTER TIIE DWPS ARB HEADY TO (» CM THE AIR, 

♦IF A restart GltDlJES PRIOR TO TVCINIT4 (TVGTWASS = - 1 ) E.G. DURING 
THE EARLY DAP HlsinnALIzATICN PHASE, THE DAP STARTUP SEQUB(CE IS 
ENTERED AT MROLESW FOR A FULL IN ITIALIZATICN . 

♦RESTARTS ABE MST ITEHTICAL TO THE ROLL DAP PERFORMANCES HENCE THE 
THE BOU. DAP IS '®BELY RESTARTED. 

WESTABTS DURING A\ STRCKE TEST (STECKER IS NCN-ZERO) WILL CAUSE THE 
STOCKE TEST TO M TERMINATED. A NEW V68 EnEY WILL BE REQUIRED 




I 


1 
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TO CBT IT GOING ACMIN (NO AurOttTIC RESTART) . 

♦REDOTVC IS reached POLLCWING ANY FSSIART WHICH BINDS THE T5 BITS 
(BITS 15,14 OP PLAQjKDa) SET BOR TVC. ICMCVER PREPARES IVCPHASE =-i 

and tvc exphs = 0 JUST BSFoas setting these bits, just BEBORB 
making the TS call to TVQDAPCH. T.V.N.O. takes over the T5 clock 
TO CALL RCSUP/RCaiAPCN WHICH RESETS THE TB BITSCBOR BCS) (H A 
NORMAL aiUIDOSN. 


CALLING sequence T5, IM PARTICULAR BY ELHSKIP OP BRESH START/RESTART 

normal Exit modes resu«, noqrsi, postjimp (to tvcinita or mhclean) 

alarm OR abort exit modes NCNE 

SlRtOurlNES CA IJfn 


*PCOPY*l, YCOPY«^l (PITCH AND YAW COPYCYCLES) 
*a<ABLBi,2, ODSCtrr (RE-ESTABLISI actuator TRIMS) 
4MRCl£AN OR TVCINIT4 (TVCDAP INITIALIZATIONS) 
♦EXRSTRT AND TVCEXECUTIVE PHASE POINTS 1 THRU 9 
waitlist, IBNkCWLL, POSTJUMP, ISWCALL 


OneR INTEHBACBS IGNCVER AND RCSDAPCN (TS BITS), ELRSKIP (CALLS IT) 

siasable initialization required 


>IS BITS, TV(WASE, TVCEXPHS 
*TVC DAP variables 

♦operations perfcred by REDOTVC Are based cn the assumption that 
THE TVC daps ABE RUNNING NORMALLY 


OUTPUT 


♦PIKK AND YAW TVC MP COPYCYCLES CCMPLETED IP INTEHUPTH) 
♦TVCEXECUTIVE CCMPLBIED IP INTERUPTED 
♦STROKE test TEIWINATED IP INTERRUPTED 

♦ACIUATOR trims BB-ESTABLISHH) (actuators back cn the AIR) 
♦TVC DAP initialization AS REQUIRED 
♦ALL TVC DAP OPERATICNS CN THE AIR 


DERIS TVC temporaries IN EBANK 6 


1084 

1085 

RHP 

2 

last 

904 

18,3165 

16,2000 

bank 18 

SETLOC DAPROLL 

loss 

1087 

RHP 

A 

last 

901 

16,3165 

Be, 1654 

BANK 

raWNKr TVCPHASE 

1088 

1089 

REP 

REP 

1 

9 

LAST 

900 

16,3165 22 016 0 

CCUNT* s$/RSRT 
REDOTVC LXCH BANKRtnT 


TVC restart package 
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1090 





18,3168 

0 0006 1 


EXTEND 


1091 

BEP 

9 

LAST 

900 

18,3167 

22 012 1 


0(01 

(»UPT 

( ..TCH. . IN ..PINCOPY.. ) 

1092 

BSP 

18 

last 

909 

16,3170 

H«661 0 

EXBCPHS 

CCS 

TVCEXPHS 

OlECK tvcexbcutive phase 

1093 





16,3171 

1 31T3 0 


TCP 

♦2 

HIST RESTART TVOEXECXiriVE 

1094 

BS' 

1 



18,3172 

1 31TT 1 


TCP 

TVCDAPHS 

NO NEED TO RESTART TVCEXECOTIVE 

1095 

SEF 

3 

LAST 

913 

16,3173 

3 4334 1 


CAP 

NINE 

gCS DQAY TO FORCE EXRSTHT TO CCCUR 

1090 

sey 

44 

LAST 

904 

16,3174 

0 5140 1 


TC 

waitlist 

BBPCSE PITCHDAP, APIER CMDSOUT 

109T 

HEP 

19 

LAST 

918 

E6,1661 



EBANK= 

TVCEXPHS 


1098 

HEP 

1 



16,3175 

032T1 0 


2CADR 

EXRSTOT 


1098 

KEP 

1 



16,3176 

34066 0 





1099 

RgP 

2 

LAST 

133 

18,3177 

4 T700 0 

TVCDAPHS 

1 Cs 

OCT37T76 

check bits 15 and 1 OF TVCpHASE TO SEE 

1100 

BBP 

5 

LAST 

91T 

16,3200 

T 1654 0 


MASK 

tvcphase 

DAP RESTART UCATICN (-l,l,2,3> 

1101 

lep 

199 

LAST 

914 

16,3201 

10 000 0 


CCS 

A 


1102 

HEP 

1 



16,3202 

1 3256 1 


TCP 

PINCOpy 

FINISH THE COPYCyCEE FIRST 

1103 

HEP 

1 



16,3203 

1 3205 1 


TCP 

BlABLl 

JUST PREPARE THE OUTCCCNTEHS AND GO 

1104 

HEP 

1 



16,3204 

1 326 2 0 


TCP 

THIM/CM3 

(RE-)DO P.YCMJ INITIALI2ATI0N FIRST 

1105 

HEP 

24 

LAST 

611 

16,3205 

3 4T03 1 

B4ABL1 

CAP 

BIT58 

TVC eiABLE, POLLCWED BY 40 MS (MIN) WAIT 

11052 

HEP 

24 

LAST 

640 

16,3206 

6 4700 1 


AD 

BITll 

OPTICS DAC DISENC5AGE TOO 

1106 





16,3207 

0 0006 1 


EXTH® 


(BlABLi ENTRIES. .+0,- CCS, PINCOPY) 

HOT 

REP 

31 

LAST 

690 

16,3210 

05 012 1 


WOR 

CHAN12 


1108 

RH' 

1 



16,3211 

3 3275 1 


(MP 

TVCADOR 

wait, calling ENABL2 (BBCCN THERE) 

1109 

HEP 

14 

LAST 

902 

16,3212 

55*312 1 


T3 

T5LCC 


1110 

HEP 

2 

LAST 

918 

16,3213 

3 3301 0 


CAP 

TVCADOR M 

6 OMS (TVCExADR) 

1111 

RH' 

10 

LAST 

902 

16,3214 

54 030 0 


TS 

TI6«5 


1112 

SBP 

30 

LAST 

902 

16,3215 

1 5222 1 


TCP 

HESUMB 


1113 

HEX 

10 

LAST 

917 

16,3216 

22 016 0 

ENABL2 

LXCH 

bankrupt 

CCNTINUE PHEPAHATICN Op' OUTCQUNTERS 

1114 

BHP 

36 

LAST 

913 

16,3217 

3 4T11 1 


CAP 

BIT2 

OPTICS ERROR CNTR ENABLE, 4MS MIN WAIT 

Ills 





16,3220 

0 0006 1 


Extend 



1116 

BBP 

32 

LAST 

918 

16,3221 

05 012 1 


WOR 

CMAN12 


HIT 

REP 

3 

LAST 

918 

16,3222 

3 3277 0 


CAP 

TVCADOR +2 

WAIT, CAU.ING OOSCUT (BBCCN THEBE) 

1118 

RES' 

IS 

LAST 

918 

16,3223 

55«312 1 


TS 

T5L0C 


1119 

REF 

3 

LAST 

918 

16,3224 

3 7700 1 


CAP 

OCT37776 

20MS 

1120 

RBP 

11 

LAST 

918 

16,3225 

54 030 0 


TS 

TIMES 


1121 

BBP 

2 

LAST 

188 

16,3226 

1 5224 1 


TCP 

NCORS4 


1122 

BBP 

11 

LAST 

918 

16,3227 

22 016 0 

CMisarr 

IJlOl 

RAiVKIWPT 

CCNTINUE PHEPAHATICN OF CUTCCXINTERS 

1123 





16,3230 

0 0006 1 


EXTESID 



1124 

BBP 

10 

LAST 

918 

16,3231 

22 012 1 


(KCH 

OHUPT 
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1125 

REP 

159 

LAST 

909 

16,3232 

4 4714 

0 


CS 

ZERO 

1126 

REP 

5 

LAST 

901 

16,3233 

6 1631 

1 


AD 

POO 

112T 

REP 

3 

LAST 

68T 

16,3234 

54 054 

1 


TS 

TVCPIlCH 

1128 

REP 

160 

LAST 

919 

16,3235 

4 4714 

0 


CS 

ZERO 

1129 

REP 

3 

LAST 

901 

16,3236 

6 1632 

1 


AD 

YQ© 

1130 

REP 

2 

LAST 

68T 

16,3237 

54 053 

0 


TS 

TVCYAW 

1131 

REP 

3 

LAST 

687 

16,3240 

3 4755 

1 


CAP 

priob 

1132 





16,3241 

0 0006 

1 


EXTEND 

1133 

RH> 

T 

LAST 

687 

16,3242 

05 014 

1 


WOR 

C«AN14 

1138 

RES 

6 

LAST 

918 

16,3243 

4 1654 

0 

PHS(SK2 

CS 

TVCFHASE 

1139 





16,3244 

0 0006 

1 


EXIB® 


1140 





16,3245 

6 3250 

0 


bzmp 

♦3 

1141 

IffilP 

48 

LAST 

828 

16,3246 

0 4574 

0 


TC 

POSTJUMP 

1142 

REP 

2 

LAST 

899 

16,3247 

36033 

1 


c;m 

MRCLEAN 

11421 

REP 

5 

LAST 

908 

16,3250 

11«614 

1 

CHKSTHK 

CCS 

strcker 

11422 

REP 

1 



16,3251 

1 3266 

1 


TCP 

TSTINITJ 

11423 





16,3252 

1 3254 

0 


TCP 

♦2 

11424 

REF 

2 

LAST 

919 

16,3253 

1 3266 

1 


Its 

TSTINITJ 

1143 

REP 

49 

LAST 

919 

16,3254 

0 4574 

0 

+4 

TC 

POSTJUMP 

1144 

REP 

1 



16,3255 

36160 

0 


CADR 

TVCINITA 

A1145 











1146 

REP 

T 

LAST 

919 

16,3256 

51«654 

1 

PINCCPY 

INDEX 

TVCPHASE 

114T 

REP 

1 



16,3257 

3 3275 

1 


CAP 

TVCCADR 

1148 

REF 

1 



16,3260 

0 4637 

1 


ICR 

ISWCAIL 

1149 

REP 

2 

LAST 

918 

16,3261 

1 3205 

1 


TCP 

BJABLi 

1150 





16,3262 

0 0006 

1 

raiM/CMO extend 


1151 

REP 

19 

LAST 

908 

16,3263 

3 1426 

0 


DCA 

PACTOFF 

1152 

REP 

6 

LAST 

919 

16,3264 

53«632 

0 


DXCH 

PO® 

1153 

REP 

3 

LAST 

919 

16,3265 

1 3205 

1 


TCP 

ENABU 

1154 

REP 

161 

LAST 

919 

16,3266 

3 4714 

1 

TSriNITJ CAP 

zero 

1155 

REP 

6 

LAST 

919 

16 , 3267 

55«614 

1 


TS 

STRIKER 

11552 

REF 

1 



16,3270 

1 3254 

0 


TCP 

QKSTRK +4 

1161 

REP 

20 

LAST 

918 

16,3271 

51«661 

1 

EXRSTKT 

INDEX 

TVCEXPHS 

1162 

REP 

1 



16,3272 

3 3301 

0 


CAP 

tvcexadr 

1163 

REF 

200 

LAST 

918 

16,3273 

50 000 

1 


INDEX 

A 

1164 





16,3274 

1 0000 

0 


TCP 

0 




U3BB.S PAGE NO. 4 Eo S3 
MOST i«»rr actuator commands 

(AVOID +0) 


BaEAffi THE COUNTERS (BITS 11,12) 


CMECk TvCpHAse AGAIN 


IP NEGATIVE, restart AT MRCLEAN 
PCS FULL INITIALIzATICN 

(SEC^ PCS stroke test in progress 
YES, KILL IT 
NO, PROCEED 
YES, KILL IT 

IP POSITIVE CS zero, restart AT 

TVCINIT4 (zeros TVCPHASE, AND 
CALLS TVC DAPS) 

PIC^C UP THE APPRCSRIATE COPYCYCLE 

RE-ENTER THE COPYCYCLE, RETURN AT END 
NOW PREPARE THE CUTCaWTERS 
TVCJaAPCN initialization not COMPLETED, 
EG. P,YOD MAY NOT be SET. SET... 

NOW PREPARE THE OUTCOUNTERS 

disable STROKE TEST (-0 SIOWS PRIOR V 68) 

(+0 !«ANS NEW V68 REOUIRED PCS STARTUP) 


TVCEXECUTIVE RESTARTS GO TO 

appropriate RESTART POINT 
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R1165 

TVC HESTART TAELBS. 

. .. OBDBR 

IS REQUIRED. HI-OHDBR WOtaJS CNLY, OP 2CADR3, SINCE BBCCN IS ALREADY THERE. 

1167 

REP 

2 

lAsr 

019 

16,3275 


TVCADOR 

= TVCCADR 

table op cadrs, unused locs por genadhs 

1168 

REP 

1 



16,3275 

03218 1 

tvccadr 

OaiADR ©IABL2 

(FOR T5 CALL, UNUSED TABLE LOC) 

1169 

REP 

1 



16,3276 

40561 1 

♦1 

CADR PCCffY +1 

PITCH COPYCYCLE 

1170 

REP 

1 



16,3277 

0322T 0 

♦2 

CEJIADR ODSOUT 

(FOR T5 CALL, UNUSED TABLE LOC) 

1171 

REP 

1 



16,3300 

4103T 0 

♦3 

CADR YCOPY +1 

YAw COPYCYCLE 

1172 





16,3301 

3T7T2 1 

TVCEXADR OCt 37772 

(UNUSED TABLE L(X!, PILL WITH 60MS, T5) 

1173 

REP 

2 

LAST 

905 

16,3302 

02742 1 

+1 

GEiNADR Ej^CCOPY +1 

TVCExEIXmvE restart points (ORDERED) 

1174 

REP 

2 

LAST 

905 

16,3303 

02750 1 

♦2 

GB<ADR SfT/COR 


1175 

REP 

1 



16,3304 

03030 1 

+3 

GBMDR SiTTCOPY +1 


1176 

REP 

2 

LAST 

906 

16,3305 

03050 1 

♦4 

GENADR TEMPSET 


1177 

REP 

2 

LAST 

006 

16,3306 

03053 1 

+5 

GENADH CORSETUP 


1178 

REP 

1 



16,3307 

03111 0 

♦6 

GRMDR CCaCOPY +1 


1179 

REP 

2 

LAST 

906 

16,3310 

03122 0 

♦7 

GBWDR CNTHCOPY 


1180 

REP 

2 

LAST 

906 

16,3311 

03125 1 

+80 

GENADR STROIP 


1181 

REP 

2 

LAST 

908 

16,3312 

03140 1 

+9D 

GEJJADR STRKTCPY +1 



# 
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TVCDAPS 


USSRaS PAOS NO. 1 


program NA.>« TVCDAP, CONSISTING OP PIlOfflAP, TMRDAP, ETC. 

UIG section TVCDAP StBROUTINE MPCSM 

MOD m EITCEL DATS 2T OCT, 196T 


FUNCTIONAL DESCRIPTION 


SELP-PERPETUATINO T5 tasks which G®EHATE the CCM4AND SIOMLS 
FOR THE PITCH AND YAW SPS OBSAL ACTUATORS DURING TVC (SP3) BUffiJS, 
IN RESPONSE TO BODY-AXIS RATE COWANDS FROM CROSS-PRODuCT STEERING 
<S40.8). IP NO steering ( LMPOLSIVE BURNS) MAINTAINS ATTITUDE-HOLD 
ABOUT THE REFERENCE { INITIAL) DIRECTIONS ( 2 ERO RATE CCM4ANDS) . 


THE PITCH AND YAW LOOPS ARE SEPARATE, BUT STRUCTURED IDeNTICALLY. 
EACH ATTITICE-HATE LOOP INCUDES GI^SIAL ANGLE RATE DSRIVATIQI, 
GI^BAL/BCDY AXIS TRANSPORWATICN, BODY-AXIS ATTITUDE ERROR 
INTEGRATION WITH ERROR LIMITING, THE CSM/LB4 FILTER OH THE BRANCH 
POINTS FOR THE CSM-ALCNE (GEN 3 DAP) FILTER, OUTPUT LIMITER, 
OO-OFFSET tracker filter, and the OG-TRACKER minor LOOP. 


THE DAPS are CYCLIC, CALLING EACH OIHER AT 1/2 THE DAP SAMPLE 
TI)e, AS DETERMINED BY TSIVCDT. THE ACTUATOR Ca>MANDS ARE 
regenerated as analog voltages BY THE OPTICS ERROR COUNTERS, WHICH 
transmit the signal to the ACTUATOR SERVOS WHEN THERE IS PROPER CDU 
MOOING. 


REPERaiCES FOR THE CS4AJ6M FILTER DESIGN INCLUDE H 503 BY STUBBS 
(MIT IL OCT 1965) AND SQA ME40 R26-65 BY MARTIN (MIT IL OCT 1965). 
REFERENCES FOR THE CS4 FILTER DESiai (SEE CE 43 DAP) INCLUDE R 533 BY 
LU (MIT IL JUNE 1966) . 


OPERATIONAL ASPECTS OF THE INTEGRAlH) CONTROL PACicACB, WITH D 6 SI®(- 
KCMINAL PARAMETER VALUES ARB DISCUSSED IN AO R336-67 BY BIGEL 
(MIT IL OCT 198T) AND SGA MEMO RI 8 - 6 T BY SCHUNDT (MIT IL OCT 1967) 


CALLING SEQUENCE (TYPICALLY) 


15 CALL OP TVCDAPOT (P40-P4T) BY IGNOvEB (P40-P47) 
TS call of DAPINIT BY TVCINIT4 (P40-P47) 

TS CALL OF DAPINIT BY DAPINIT 
15 CALL OP PITCHDAP BY DAPINIT 
TS CALL OP YAWDAP BY PITCHDAP 
15 CALL OP PITCHDAP BY YAWDAP 
ETC. 

(AUTOMATIC sequencing FROM TVCDAPCN) 


NORMAL EXIT MODE RESUEE 


ALARM OB ABORT EXIT MODES NONE 


subrcxjtines called 


I 




ASSB>SL£ HBv^ISION 249 OP AOC PBOORAM COLOSSUS BY NASA 2021111-041 20’35 OCT. 28,196B DAPCSM .195 PAGE 922 

US8IUS PACE NO. 2 BO S3 

H1039 HACK POR STEKKB TEST <V68) WAVEPCmM GEIBHATION 

B1040 NPO-, NP1-, NYo-, A.'O NYiNODS POH GaisOAP (LB4-QFF) PILTBRS 

B1041 POOPY, YOOPY POH COPY-CYCLBS (USSO ALSO BY TVC BgSWBT PAQcAGE) 

R1042 OAPINIT POR INITIAL CDUS P«l RATE KHASORaffiNTS 

B1043 EaH0ra.IM, ACILIM FOR INPUT (ATTIHIia-BnROR INTEOTATICN) AND 

B1044 OunVT (ACniATOa COMMAND) LIMITING, Ca>MCN TO PITCH AND 

R1045 YA* DAPS 

R1046 OPTVABC, NSUM, DSIM FOR Cs>t/LB«1 FILTER OPERATIONS, COWCN TO 

R104T PIKH AM> YAW DAPS 

R1048 RESlPe 

R1049 OTHER INTERFACES 

R1050 840. 8 CROSS-PRODuCT STEERING FOR BODY AXIS RATE CCM4ANDS CNEGAY.ZC 

R1051 S40.15 for the INITIAL DAP GAINS KP/KPON ILEM-OO OR KPG®l3 (-OFF) 

R10S2 TVCExECUrlVB FOR VARIABLE DAP GAINS, FILTER SAMPLE-RATE CHAN® AND 

B1053 gain BBOUCTICN AT LEM-CN SWITCHCVEH, SINGLE-aiOT CO. ESTIMATION 

B1054 at SWITCWVER Afffl REPETITIVE CO ESTIMATION AFIER SWITWIOVER. 

B1055 TVCrESTART PAClcAGE FOR TVC RESTART PROIECrlON. 

H1056 ERASABLE INITIALIZATION REQUIRED 

R105T 
R1058 
B1059 
RlOBO 
R1061 
Rioez 
R1063 
R10B4 
R1065 
RIO66 
R1067 
R1068 

R1069 OUTPUT 

BIOTO TVCPIICH AND TVCYAw WITH COUNTER RELEASE <11.14 AND 11.13 INCREMEN- 

KlOTl TAL <XMMA.NDS to OPTICS ERROR COUNTERS), FILTER NODES, BODY- 

B10T2 AXIS ATTITUie ERROR INTEGRATOR, TOTAL ACTUATOR COMANDS, 

R10T3 OPPSET-TRACHER-FILTER OUTPUTS, BiC. 

R1074 DEBRIS 

RIOTS MJCH, S1AE£A8LE WITH RCS/ENTRY, IN EBANK6 ONLY 

1076 lT-,2213 bank IT 

1077 REF 1 20,2000 SEILOC DAPS2 

1078 20,2327 BANK 


29 PAD-LOAD BRASABLES ESTROkER EREPFRAC ♦! 

KP/KPIK <KPCSN3) AS IN S40.1S <R03) 

CCNPIGURATIOM BITS <14, 13) OP DAPDATHi AS IN R03 

B<OINB-CN bit < 11 . 13 ) for RESTARTS 

TVCPHASS FOR restarts <SEB IGNOVER, and IVCINIT 4) 

T5 bits <15,14 OP PLAGWRDs) FOR RESTARTS 

MISCELLANEOUS VARIABLES SET UP OR CCMPUTED BY TVCDAPCN IVCINIT4, 

INCUBIMO THE ZEROING OP 64 TEMPORARIES BY MBCLEAN 

aXSC,Y,Z and SINtDUX COSCDUX AS PREPARED BY CHUTRIGi <WI1H 

UPDATES every 1/2 SOOND) 

ALSO G*N primary, TVC ENABLE, AND OPTICS ERROR <MlN1ER ENABLE 
UNLESS BENGH-IBSTINO. 
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TVCaAPS U®H«S PAGB NO. 3 Eo S3 


10T9 HEP 10 last 913 E6,1T42 

1080 HEP 1 


EBANK= B2EBO 
COUNT* »t/nAPS 



ASSSCLB revision 249 OP AOC PBO®AM COLOSSUS BY HAS* 2021111-041 
TVCOAPS 


20’35 OCT. 28,1968 MPCSM .195 PAOB 924 
USEBaS PACE NO. 4 Br S3 


P1081 

pitch tvcdap starts 

HERE 

( INCORPCBATES CS4/LEM DAP FILTER. MGDOR OESIGH) 

1083 

BH' 

12 

LAST 

918 

20,2327 

22 016 0 

PITdCAP LXCH 

bankrupt 

15 ailEY, NOH'AAL OR VIA DAPINIT 

1084 





20,2330 

0 0006 1 

©CIB© 


1085 

REP 

11 

LAST 

918 

20,2331 

22 012 1 

(KCH 

QHJPT 


108ft 

HEP 

1 



20,2332 

3 3420 1 

CAP 

YAWTS 

SET UP TS CALL POR YAW AUTOPILOT (LCW- 

108T 

rbp 

16 

LAST 

918 

20,2333 

55«312 1 

TS 

TSLOC 

ORDBR PART OP 2CADH ALREADY THERE) 

1088 

OSP 

6 

LAST 

907 

20,2334 

31«635 0 

CAE 

TSTVCDt 


1089 

BBP 

12 

LAST 

018 

20,2335 

54 030 0 

TS 

TII^ 


1090 

REP 

T 

LAST 

919 

20,2338 

11«614 1 

PSIHOKER CCS 

STRCKER 

( SIRKPLO) CHECK POR STOCKE TEST 

1091 

REP 

1 



20,2337 

0 35 06 1 

TC 

hack 

TEST-S'CART OR TEST- IN-PROGRESS 

1092 





20,2340 

1 2342 1 

TCP 

♦2 

NO-TEST 

1093 

RHP 

2 

LAST 

924 

20,2341 

0 3506 1 

TC 

hack 

1EST-IN-PROORESS 

1094 

RBP 

9 

LAST 

736 

20,2342 

30 033 1 

PCDOXIrS CAE 

CDUY 

CCMpjtE oukdot 

1095 

R0P 

2 

LAST 

103 

20,2343 

57"855 0 

XQI 

PC5DUYPST 

POR PITCH AUTOPILOT 

1090 





20,2344 

0 0006 1 

Exiaro 


109T 

REP 

3 

LAST 

924 

20,2345 

21«655 1 

MSO 

PCDUYPST 


10971 

RBP 

1 



20,2346 

0 2547 0 

ICR 

RLIHIEST 

RATE TEST 

1098 

RBP 

2 

LAST 

103 

20,2347 

55«657 0 

TS 

MCBuyoor 

(MINUS, SC .AT l/2'IVCDT REvS/SEC) 

1099 

HEP 

12 

LAST 

736 

20,2350 

30 034 0 

CAE 

OXJZ 

CCMPUIE CJXEDOT 

1100 

RBP 

2 

LAST 

103 

20,2351 

57«658 0 

XCH 

POXJZPST 

POR PITCH Autopilot 

1101 





20,2352 

0 0006 1 

EXTEND 



1102 

RBP 

3 

LAST 

924 

20,2353 

21«656 1 

MSU 

pcnjzpST 


11021 

REP 

2 

LAST 

924 

20,2354 

0 2547 0 

TCR 

HLIMIEST 

rate test 

1103 

BBF 

2 

LAST 

103 

20,2355 

55«660 1 

TS 

MCDuzDOT 

(MINUS, sc .AT 1/2TVCDT REVS/SEC) 

1104 





20,2356 

0 0006 1 

piNTEGRL Extend 


CCMPUIE INTEGRAL OF BCDY-AxIS PITCH -RATE 

1105 

RBP 

2 

LAST 

102 

20,2357 

3 1616 1 

DCA 

PERHB 

error, sc.at b_i revs 

1106 

RBP 

6 

LAST 

104 

20,2360 

53«743 1 

DxCH 

EHHBTMP 


HOT 





20,2361 

0 0006 1 

EXTEND 



HOB 

HEP 

2 

LAST 

899 

20,2362 

3 1530 0 

DCA 

CMBGAYC 


1109 

RBP 

T 

LAST 

924 

20,2363 

21«743 1 

DAS 

BHRBTMP 


1110 

RBP 

5 

LAST 

718 

20,2364 

4 0746 0 

C3 

COSOXIZ 

PREPARE BODY-AXIS PITCH RATE, CMEQAYB 

1111 





20,2385 

0 0006 1 

BXTR® 



1112 

REP 

5 

LAST 

718 

20,2366 

7 0750 1 

MP 

COSCDux 


1113 





20,2367 

20 001 1 

DOCXAIL 



1114 





20,2370 

0 0006 1 

EXTEND 



1115 

RBP 

3 

LAST 

924 

20,2371 

7 1657 0 

MP 

MCDUYDOT 


1116 





20,2372 

20 001 1 

DDCUBI, 



HIT 

BBP 

1 



20,2373 

53«536 1 

DXCM 

OECAYB 


1118 

RBP 

3 

LAST 

924 

20,2374 

4 1660 1 

CS 

MCDUZDOT 


1119 





20,2375 

0 0006 1 

EXTEND 
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L 
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USBBoS PACB NO. 5 B6 S3 

li20 

RBP 

5 

LAST 

T18 

20.2376 

7 0742 1 

HP 

8INCDUX 


1121 





20.2377 

20 001 1 

DDO^ 



1122 

REP 

2 

LAST 

924 

20,2400 

21«536 1 

DAS 

a«aAYB 

(CCMPLETHD CMEQAYB, SC.AT l/2TVt»T REVS) 

1123 





20.2401 

0 0006 1 

EJOB® 


Piqc UP -CMEOAYB (SIGN CHNO, INT«»ATE) 

1124 

REP 

3 

LAST 

92S 

20.2402 

4 1536 1 

DCS 

(MBOAYB 


1125 

REP 

8 

LAST 

924 

20,2403 

21«743 1 

ms 

ehbbtmp 


1128 

REP 

1 



20.2404 

0 3126 1 

PBROHLIM ICR 

ebborlim 

PITOI BODY-AX I S-EHHOR INPITT LIMITER 

1127 

REP 

66 

LAST 

914 

20.2405 

31-486 1 

PlFIUMP CAB 

DAPDATOi 

C«ECi( FOR LEM-CN/-0PP 

1128 

REP 

46 

LAST 

914 

20.2406 

7 4675 0 

wac 

BIT14 

(BIT 14 indicates LBI IS ON) 

1129 

REP 

201 

LAST 

919 

20,2407 

10 000 0 

CCS 

A 


1130 





20,2410 

1 2413 1 

TCP 

♦3 

USE LB4-CN FILTER 

1131 

RBP 

50 

LAST 

919 

20,2411 

0 4574 0 

TC 

POSTJlMP 

USE LEM-OFF (GEN3DAP) FILTER 

1132 

REP 

1 



20,2412 

36213 1 

CADH 

NPONCDE 

1133 

REP 


LAST 


20.2413 

0 0006 1 

PPOlWAHD EjOfi® 


La4-CN FILTER CCMPinATIONS. 

1134 

3 

104 

20.2414 

4 1544 1 

DCs 

PDSIM 

D&(CMINATOH TERMS, SC.AT B+o SPASCREVS 

1135 

REP 

1 



20,2415 

53«745 1 

DXCH 

JZEHO 

1138 

RBP 

9 

LAST 

925 

20.2416 

31«742 1 

CAB 

bhrbtmp 

INPUT error, SC.AT B-i REVS 

1137 

REP 

3 

LAST 

104 

20.2417 

6 1541 0 

AD 

PNSLM 

NOERATOR TERMS, SC.AT B-i REVS 

1138 





20,2420 

0 0006 1 

BjCTBJD 



1139 

RBP 

1 

LAST 


20.2421 

7 4727 0 

HP 

KPW 

KPCN, SC.AT B+i SPASCHEV 

1140 

RBP 

2 

925 

20.2422 

21«745 1 

DAS 

JZEHO 

1141 

REP 

4 

LAST 

925 

20,2423 

31«542 0 

CAB 

PNSUM +1 


1142 





20,2424 

0 0006 1 

BXTPND 



1143 

RBP 

2 

LAST 

925 

20,2425 

7 4727 0 

HP 

KPW 


1144 

REP 

3 

LAST 

925 

20,2426 

27«74S 1 

ADS 

JZEHO +1 


1145 

REP 

81 

LAST 

901 

20,2427 

54 001 1 

TS 

L 


1146 





20,2430 

1 2432 1 

TCP 

*2 


1147 

RBP 

4 

LAST 

925 

20,2431 

27«744 0 

ADS 

JZSRO 

(SC.AT B+o SPASCRBV), (JZERO = CHTIMP) 

1148 

REP 


LAST 


20.2432 

0 0006 1 

JzsTOBB Extend 


PREPARE JZERO FOR DENO'IINATOR LADDER 

1149 

5 

925 

20.2433 

3 1745 0 

DCA 

jzero 

SC.AT B+o SPASCRBV 

1150 





20.2434 

20 001 1 

docubl 



1151 





20,2435 

20 001 1 

DDCW5L 



1152 





20,2436 

20 001 1 

DOCIBL 



1153 

REP 

3 

LAST 

105 

20,2437 

53«727 0 

DXCH 

JlTMP 

SC.AT B-3 SPASCREV 

1154 

REF 

1 



20,2440 

0 3141 0 

OPTVABKP ICR 

OPTVAHG 

PITG5I VARIABLE-GAIN PACKAGE 

1155 





20.2441 

0 0006 1 

pcFFSBT Extend 


SIGN CHANGE IN FORWAM) L(X)P 

1156 

REP 

6 

LAST 

105 

20.2442 

4 1745 1 

DCS 

CfOTMP 

((®43DAP RETURNS AT POFPSET) 

1157 

REP 

7 

LAST 

925 

20,2443 

53«745 1 

DXCH 

CMTIMP 

1158 





20.2444 

0 0006 1 

EXTB® 


ADD IN DOUBIE-PHECISION CG CFFSBTS 

1159 

REP 

5 

LAST 

906 

20.2445 

3 1626 1 

DCA 

PDBIXFP 

1160 

REP 

8 

LAST 

925 

20,2446 

21«745 1 

DAS 

CWDTMP 
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L 
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USEibS PAGE NO. 6 Ee S 3 

1161 


9 

LAST 

925 

20,2447 

31«745 0 

PROUND 

CAB 

CMYMP *1 

ROU© OP POR OUTPUT 

1162 





20,2450 

6 0000 1 




1163 

tep 

62 

LAST 

925 

20,2451 

54 001 1 


TS 

L 


1164 

tey 

162 

LAST 

919 

20,2452 

3 4714 1 


CAP 

ZERO 


1165 

my 

10 

LAST 

926 

20,2453 

6 1744 1 


AO 

CMYIMP 


1166 

my 

1 



20,2454 

0 3161 1 

PACLW 

ICR 

actlm 

PITCH ACTUAT0R-CCM4AND-LIMI1EB 

1167 

mp 

7 

LAST 

919 

20,2455 

4 1631 0 

FOOT 

Cs 

PCM) 

INCHSemL PITCH CCM4AND 

1186 

my 

11 

LAST 

926 

20,2456 

6 1744 1 


AD 

CMYIMP 


1169 

my 

4 

LAST 

919 

20,2457 

26 054 1 


ADS 

TVCPIlCH 

UPDATE THE ERROR COUNTER (NO RESTART- 

^1170 










PBOTECT, since error CNTR ZEROED) 

1171 

my 

25 

LAST 

918 

20,2460 

3 4700 1 


CAP 

Bi-ni 

bit POR TVCPITCH COtMT RELEASE 

1172 





20,2461 

0 0006 1 


Exiaaj 


1173 

my 

8 

LAST 

919 

20,2462 

05 014 1 


VOR 

CHAN 14 


1174 

my 

67 

LAST 

925 

20,2463 

31«466 1 

P 2 FILJMP CAE 

DApOA-rai 

CHEQc for L£M-CN/-QPP 

1175 

my 

47 

LAST 

925 

20,2464 

7 4675 0 


mask 

BIT14 

(BIT 14 INDICATES LE4 IS CN) 

1176 

• my 

202 

LAST 

925 

20,2465 

10 000 0 


CCS 

A 


1177 





20,2466 

1 2471 0 


TCP 

♦3 

USE LB4-CN filter 

1178 

my 

51 

LAST 

925 

20,2467 

0 4574 0 


IC 

POSTJUMP 

USB LEM-OPP (GSN 3 DAP) filter 

1179 

my 

1 



20,2470 

38248 1 


CAOR 

NPlNCDE 


1180 

my 

10 

LAST 

925 

20,2471 

31«742 1 

BZSTC*® 

CAE 

ERRBlMP 

prepare BzERO (UPPER WORD OP ERRBlMP) 

1161 





20,2472 

6 0000 1 


DOPLE 


FOR NUMERATOR LADDER SC.AT fl-l 

1182 

my 

3 

LAST 

105 

20,2473 

55«717 0 


TS 

BiTMP 

SC .AT B -2 REVS FOR LADDER 

1183 





20 , 2474 

0 0006 1 

Pr^WDOBR 6 ) 0 ©© 


PREPARE TSMPORARIES, FOB UPDATING PITCH 

1184 

Bey 

2 

LAST 

101 

20 , 2475 

3 1546 1 


DCA 

Bl 

NlJ«RATOR LADDER 

1185 

BSP 

3 

LAST 

105 

20,2476 

S3«721 0 


DXCH 

BpTMP 


1186 





20,2477 

0 0006 1 


EXTEjro 



1187 

see 

2 

LAST 

102 

20,2500 

3 1550 0 


DCA 

B3 


1188 

my 

3 

LAST 

105 

20,2501 

53«723 1 


OXCH 

B 4 TMP 


1189 





20,2502 

0 0008 1 


Bxie® 



1190 

Bey 

2 

LAST 

102 

20,2503 

3 1552 1 


DCA 

B5 


1191 

SBP 

3 

LAST 

105 

20,2504 

53«725 1 


DXC« 

B6TMP 


1192 

my 

1 



20,25 05 

0 3173 1 

PKSUMC 

TCR 

NSUM 

PITCH NlI«BAT0H SUM 

1193 





20,2506 

0 0006 1 

POLADDEE EXTEND 


prepare TEMPORARIES, FOR UPDATING PITCH 

1194 

my 

2 

LAST 

102 

20,2507 

3 1554 1 


DCA 

Jl 

dokminator ladder 

1195 

BSP 

3 

LAST 

105 

20,2510 

53«731 1 


DXCM 

J21MP 


1196 





20,2511 

0 0006 1 


EXTBTO 



1197 

BBP 

2 

LAST 

102 

20,2512 

3 1556 0 


EWA 

J2 


1198 

BSP 

3 

LAST 

105 

20,2513 

53«733 0 


DxCH 

J 37 MP 


1199 





20,2514 

0 0006 1 


EXTB® 



1200 

BSP 

2 

LAST 

102 

20,2515 

3 1560 0 


DCA 

J3 
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L 
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1201 

Fsap 

3 

LAST 

105 

20,2516 

53«735 0 


nxCH 

J4TMP 


1202 





20,2517 

0 0006 1 


BXTB® 



1203 

neap 

3 

LAST 

104 

20,2520 

3 1562 1 


DCA 

J4 


1204 

BEP 

4 

LAST 

105 

20,2521 

53«737 1 


nxcH 

J5TMP 


1205 





20,2522 

0 0006 1 


QCIBO 



1206 

BBP 

3 

LAST 

104 

20,2523 

3 1564 1 


DCA 

Ji 


1207 

BEP 

3 

LAST 

105 

20,2524 

53«741 0 


DXCH 

J6TMP 


1208 

BEP 

1 



20,2525 

0 3233 0 

HISIMC 

TCR 

DSlM 

pitch dencminator sum 

1209 

Ba» 

12 

LAST 

926 

20,2526 

31«744 1 

delbarp 

CAB 

CMYIMP 

update pitch OFFSET-TRACXER-PILTER 

1210 





20,2527 

0 0006 1 


BJCWO 


(GBIsmp HBTUroiS AT ..DELBARP.. ) 

1211 

BEP 

1 



20,2530 

7 3421 1 


HP 

1-E(_AT) 


1212 

BEP 

2 

lAST 

104 

20,2531 

53«716 1 


PXCH 

DELBHTMP 


1213 

BEP 

5 

LAST 

907 

20,2532 

31«621 0 


CAB 

DBLPBAR 


1214 





20,2533 

0 0006 1 


BXTES® 



1215 

REP 

1 



20,2534 

7 3422 1 


HP 

B(-AT) 


1216 

HEP 

3 

LAST 

927 

20,2535 

21«716 1 


ms 

DELBHTMP 


1217 

BEJP 

6 

LAST 

927 

20,2536 

310622 0 


CAB 

DS^PBAR +1 


1218 





20,2537 

0 0006 1 


EXTBTO 



1219 

BEJP 

2 

LAST 

927 

20,2540 

7 34 22 1 


MP 

E(-AT) 


1220 

HEP 

4 

LAST 

927 

20,2541 

27«716 1 


AOS 

DQBRTMP +1 


1221 

HEP 

S3 

LAST 

926 

20,2542 

54 001 1 


TS 

L 


1222 





20,2543 

1 2545 0 


TCP 

*2 


1223 

HEP 

5 

LAST 

927 

20,2544 

27«715 1 


ADS 

DaBHTMP 


1224 

HEP 

2 

LAST 

920 

20,2545 

0 2560 0 

PCOPYCYC TCh 

pcopy 

PITCH COPYCYCLE 

1225 

HEP 

31 

LAST 

918 

20,2546 

1 5222 1 

pDAparo 

TCP 

BESL1« 

PITCH DAP CCMPLBTED 

12251 

HEP 

13 

LAST 

927 

20,2547 

55«744 0 

RLWIEST TS 

(MUMP 

TEST FOR EXCESSIVE CDU BATES 

12261 





20,2550 

0 0006 1 


Exiero 


IP CIXJ DIFPEHENCE exceeds 2.33 DEG 

12271 

HEP 

1 



20,2551 

7 3415 0 


MP 

1/HTLIM 

IN CHE sample PBRICD, SET CDURATErO 

12281 





20,2552 

0 0006 1 


EXTEND 



12291 





20,2553 

1 2556 1 


BZP 

♦3 


12301 

HEP 

163 

LAST 

926 

20,2554 

3 4714 1 


CAP 

28RO 


12311 

BEP 

14 

LAST 

927 

20,2555 

55«744 0 


TS 

(MUMP 


12321 

REP 

15 

LAST 

927 

20,2556 

31»744 1 


CAE 

CMITMP 


12331 

HEP 

180 

LAST 

914 

20,2557 

0 0002 0 


TC 

0 
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P12341 PIlQl TVCOAP COPYCYCLB SlBHCXlTINE (CALUD VIA PITCH TvCDAP OR TVC HESTART PAQcAGE) 


12361 

Ai2371 

REP 

8 

LAST 

919 

20,2580 

25«654 1 

PCOPY 

INCR 

TVCPHASE 

BESTART-PROTECT the copycycle. 

A12381 










NOlE POSSIBLE RE-ENTRY FRCM RESW 

A12391 










PAQCAOB, SHOULD A RESTART OCCUR 










During pitch copycycle. 

12401 





20,2561 

0 0006 1 

NEWB(S) 

EXTB® 

update PITCH NU5EHATOR LADDER FROM 

12411 

IffiP 

4 

LAST 

926 

20,2562 

3 1720 0 


DCA 

BiTMP 

TEMPORARIES 

12421 

REP 

3 

LAST 

926 

20,2563 

53«546 0 


PlCCH 

Bl 


12431 





20,2564 

0 0006 1 




12441 

RBP 

3 

LAST 

105 
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REP 

2 

LAST 

931 

20,3051 

3 1727 

1 


DCA 

YlTMP 

TB4PORARIB3 

14341 

HEP 

3 

LAST 

932 

20,3052 

53*600 

1 


OXCH 

Yl 


14351 





20,3053 

0 0006 

1 


EXTBJD 



14361 

HEP 

2 

LAST 

932 

20,3054 

3 1731 

0 


DCA 

Y 2 TMP 


143T1 

REP 

3 

LAST 

932 

20,3055 

53*602 

0 


DxCH 

rz 


14381 





20,3056 

0 0006 

1 


EXTEND 



14391 

tey 

2 

LAST 

932 

20,3057 

3 1733 

1 


DCA 

Y3TMP 


14401 

RBP 

3 

LAST 

932 

20,3060 

53*604 

0 


DXCH 

1f3 


14411 





20,3061 

0 0006 

1 


EXTEND 



14421 

IffiF 

2 

LAST 

932 

20,3062 

3 1735 

1 


DCA 

Y 4 TMP 


14431 

REP 

4 

LAST 

932 

20,3063 

53*606 

1 


DxCH 

r* 


14441 





20,3064 

0 0006 

1 


EXT»iD 


(ALSO NYlTMP,*! TO NYl.+D 

14451 

BSP 

3 

LAST 

932 

20,3065 

3 1737 

0 


DCA 

YSTMP 


14461 

SSF 

4 

LAST 

932 

20,3066 

53*610 

0 


DXCH 

Vs 


144T1 





20,3067 

0 0006 

1 

YMISC 

EXTEND 


MISC YAW-RATE-ERROR INTEGRATOR 

14481 

REP 

IT 

LAST 

932 

20,3070 

3 1743 

0 


DCA 

ERHBTMP 


14491 

REP 

3 

LAST 

540 

20,3071 

55*500 

1 


TS 

AK 2 

FOR YAW NEEIXES, SC.AT B -1 REVS 

14501 

RHP 

3 

LAST 

930 

20,3072 

53*620 

0 


DxCH 

YERBB 


14S11 





20,3073 

0 0006 

1 


EXTTOID 


YAW NUMERATOR SUM 

14521 

RHP 

5 

LAST 

928 

20,3074 

3 1712 

1 


DCA 

NSLMIMP 

(ALSO NYzTMP.tl TONY 2 ,+l) 

14531 

BEP 

5 

LAST 

931 

20,3075 

53*566 

1 


DXCH 

YNSIW 


14541 





20,3076 

0 0006 

1 


EXTEND 


YAW DENCMINATOR aW 

14551 

REP 

5 

LAST 

928 

20,3077 

3 1714 

1 


DCA 

DSLMIMP 

(ALSO NY3TMP,+1 TO NYs.^^D 

14561 

RHP 

4 

LAST 

931 

20,3100 

53*570 

0 


DXCH 

TDSLM 


145T1 

REP 

24 

LAST 

932 

20,3101 

31*744 

1 


CAB 

OOTMP 

YAW ACTUATOR COMAMD 

14581 

BS' 

5 

LAST 

931 

20,3102 

55*632 

0 


TS 

YCM) 


14591 





20,3103 

0 0006 

1 


EXTR® 


YAW OFFSET-THACkER-FILTER 




m 
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14601 

REP 

11 

UlST 

933 

20,3104 

3 1716 

0 

OCA 

DELBKIMP 


14611 

REP 

T 

LAST 

933 

20,3105 

53«a24 

1 

nxCH 

DBLYBAR 


14621 

REP 

165 

LAST 

931 

20,3106 

3 4714 

1 

CAP 

ZERO 

YAW CCffYCYCLB CCNPLETED 

14631 

REP 

11 

LAST 

934 

20,3107 

SS«6S4 

0 

TS 

TVCPHASE 

RESET TVCPHASE 

14641 

REP 

182 

LAST 

929 

20,3110 

0 0002 

0 

IC 

0 






«»• ASS®«LE BEVISICW 249 OF AOC PROGRAM COLOSSUS BY NASA 2021111-041 
L TVCOAPS 

P14851 SlBRtXiriNES C0^^^QN TO BOIH PITCH AND YA*f DAPS 
RlAOOl initialization PAClcAGE FOR OXIRATES 



14871 REP- 14 LAST 930 20,3111 22 016 


0 dapinit lxch bankrupt 


14881 REP 18 
14691 REP g 
14701 REP 3 
14711 REP 9 
14721 REP 14 
14731 REP 2 
14741 REP 18 


last 908 

LAST 930 
last 429 
last 936 
last 930 

last 930 

LAST 930 


14751 REP 
14761 REP 
14771 REP 
14781 REP 


LAST 

LAST 

LAST 

LAST 


924 

924 

924 

924 


20.3112 

20.3113 

20.3114 

20.3115 

20.3116 

20.3117 

20.3120 

20.3121 

20.3122 

20.3123 

20.3124 


3 7716 
6 1635 
6 4674 
6 1635 
54 030 
3 3416 
55«312 


30 033 1 
55«65S 1 
30 034 0 
55«856 1 


CAP 

AO 

AD 

AD 

TS 

CAP 

T3 

CAB 

TS 

CAE 

TS 


NEOCNE 

ISIVCDT 

NEGMlx 

T57VCDT 

TIMES 

piicms 

T5LOC 

CDOY 

PCDUYPST 

CDUZ 

POajZPST 


14791 REP 3 LAST 918 20,3125 1 5224 1 

R14801 BCDY-AXIS-EHRC« INPUT LIMITER PACKAGE. 


TCP NOQRS4 


14811 

RBP 

la 

LAST 

934 

20,3126 

31*742 

1 

BRROHLIM CAE 

ERRBTMP 

14821 





20,3127 

0 0006 

1 

ExtBTO 

14831 

REP 

1 



20,3130 

7 4710 

1 

MP 

1/EHHLIM 

14841 





20,3131 

0 0006 

1 

EXTEND 


14851 





20,3132 

1 3140 

0 

BzF 

+6 

14861 

REP 

19 

LAST 

936 

20,3133 

11*742 

0 

CCS 

EHHBTMP 

14871 

REF 

1 



20,3134 

3 4676 

1 

CAP 

BHHLIM 

14881 





20,3135 

1 3137 

0 

TCP 

♦2 

14891 

REP 

2 

LAST 

936 

20,3138 

4 4676 

0 

Cs 

errlim 

14901 

HEP 

20 

LAST 

936 

20,3137 

55*742 

0 

TS 

erhbtmp 

14911 

RBP 

183 

LAST 

935 

20,3140 

0 0002 

0 

TC 

Q 

R14921 

VARIABLE-GAIN 

PACKAGE 





14931 

REP 

25 

LAST 

934 

20,3141 

31*744 

1 

OPTVABK CAE 

CNDTMP 

14941 





20,3142 

0 0006 

1 

EXTEND 


14951 

REP 

4 

LAST 

910 

20,3143 

7 1651 

0 

MP 

VARC 

14961 

REP 

26 

LAST 

936 

20,3144 

53*745 

1 

DXCH 

CWHMP 

14971 

REF 

205 

LAST 

932 

20,3145 

22 000 

1 

LxCH 

A 

14981 





20,3146 

0 0006 

1 

EXTEND 


14991 

REF 

5 

lAST 

936 

20,3147 

7 1651 

0 

MP 

VARC 

15001 

REP 

27 

I A ST 

936 

20,3150 

27*745 

1 

ADS 

OWIMP 

15011 

REP 

87 

I A ST 

933 

20,3151 

54 001 

1 

TS 

L 


20*35 OCT. 28,1968 DAPCSM .195 PACE 938 
USERdcS PAGE NO. 16 B6 S3 

TS RUPT ENTRY {CALLED BY TVCINT4 ) 
set up 

TS CALL PC« PITCHDAP IN TVCDT SECS 
(TSTV(35T = POSMAX - TVCDT/2 *1) 

(B8CCN ALREADY THERE) 


read and store CDUS POR DIFPEHENTIATOR 
PAST-VALUES 


check POR input-error limit 

CHECKS UPPER WOE® CNLY 


LIMIT WRITES CVER UPPER WORD CNLY 


VARIABLE-GAIN PACKAGE CfOlMP CCNTAINS 

JZBRO OR YZERO 

VARIABLE-GAIN, SC .AT 4 ASClffiv/SPASCREv 
LO-OBDER WORD OF INPUT CMDIMP 
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TVOMPS 


15021 





20,3152 

1 3154 

0 


TCP 

*2 

15031 

BP 

28 

LAST 

936 

20,3153 

27«744 

0 


AOS 

CMITMP 

15041 

BP 

28 

LAST 

93T 

20,3154 

53«745 

1 


OXCH 

OOTMP 

15051 





20,3155 

20 001 

1 


nXUBL 


150S1 





20,3156 

20 001 

1 


ddoubl 


150T1 

BP 

30 

LAST 

93T 

20,3157 

53<«745 

1 


OxCH 

OCTMP 

15081 

BP 

184 

LAST 

936 

20,3160 

0 0002 

0 


TC 

0 

R15091 

AClUlTCR-Oa««VND LIMITER PACKAGE 





15101 





20,3161 

0 0006 

1 

ACTLIM 

EXT®ffl 


15111 

BP 

1 



20,3162 

T 3414 

1 


HP 

1/ACTSAT 

15121 





20,3163 

0 0006 

1 


BXTBJD 


15131 





20,3164 

1 3172 

1 


BzP 

♦6 

15141 

BP 

31 

LAST 

93T 

20,3165 

11«744 

0 


CCS 

CMDTMP 

15151 

BP 

1 



20,3166 

3 3413 

1 


CAP 

ACTSAT 

15161 





20,3167 

1 3171 

1 


TCP 

*2 

151T1 

BP 

2- 

LAST 

93T 

20,3170 

4 3413 

0 


CS 

ACTSAT 

15181 

BP 

32 

LAST 

937 

20,3171 

55«744 

0 


TS 

CMnMP 

15191 

BP 

185 

LAST 

937 

20,3172 

0 0002 

0 


TC 

0 

R15201 

MUCaRATOR-SUM CCMPUWTICN 






15211 

BP 

5 

LAST 

928 

20,3173 

31*717 

1 

Na« 

CAE 

BiTMP 

15221 





20,31T4 

0 0006 

1 


EXTBJD 


15231 

BP 

1 



20,3175 

7 3423 

0 


MP 

Nl 

15241 

V 

8 

LAST 

934 

20,3176 

53*712 

0 


PXCH 

NSLMIMP 

15251 

BP 

4 

LAST 

926 

20,3177 

31*720 

0 


CAE 

B2TMP 

15281 





20,3200 

0 0006 

1 


EXTEND 


152T1 

BP 

1 



20,3201 

7 3424 

1 


MP 

N2 

15281 

mss' 

T 

LAST 

93t 

20,3202 

21*712 

0 


DAS 

NSUMTMP 

15291 


' 4 

LAST 

928 

20,3203 

31*721 

1 


CAE 

BsTMP 

15301 





20,3204 

0 0006 

1 


EXTEND 


15311 

BP 

1 



20,3205 

7 3425 

0 


MP 

N3 

15321 

BBP 

8 

LAST 

937 

20,3206 

21*712 

0 


DAS 

NSLMIMP 

15331 

IB' 

4 

LAST 

926 

20,3207 

31*722 

1 


CAE 

B4TMP 

15341 





20,3210 

0 0006 

1 


EXIB® 


15351 

RHP 

1 



20,3211 

7 3426 

0 


MP 

N4 

15301 

BP 

9 

LAST 

937 

20,3212 

21*712 

0 


DAS 

NSLMIMP 

15371 

BP 

4 

LAST 

928 

20,3213 

31*723 

0 


CAE 

B5TMP 

15381 





20,3214 

0 0006 

1 


extend 



20’35 OCT. 28,1988 IMPC»1 .195 PAGE 93T 
USBIUS PAGE NO. IT Ee S3 

PIX UP SCALING 


CHECK EOR actuator COMAND LIMIT 


APPLY LIMITS 


LIMITS WRITE OVER CMUMP 


PREPARE NLMERATOR aW, SCALING IS AT 
B+o REVS ( = B+2 X B-2 ) 
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15391 

BEP 

1 



20,3215 

7 3427 1 


MP 

M5 


15401 

REP 

10 

LAST 

03T 

20,3216 

21«712 0 


DAS 

MSIWIMP 


15411 

REP 

4 

lAST 

926 

20,3217 

31«724 1 


CAB 

BelMP 


15421 





20,3220 

0 0006 1 


EXT »0 


15431 

REP 

1 



20,3221 

7 3430 1 


MP 

N8 


15441 

REP 

11 

LAST 

938 

20,3222 

21-712 0 


DAS 

MSIMIMP 


15451 

REP 

3 

LAST 

105 

20,3223 

31-725 0 


CAB 

B 7 TMP 


15461 





20,3224 

0 0006 1 


EXTS© 


154T1 

HEP 

1 



20,3225 

7 3431 0 


MP 

M7 


15481 

REP 

12 

LAST 

938 

20,3226 

21-712 0 


ms 

NSlTflMP 


15491 

REP 

13 

LAST 

938 

20,3227 

53-712 0 

KSUMSC 

dkch 

NSIMJMP 

FIX UP SCALINO (NOW AT BtO BEVS) 

ISSOl 





20,3230 

20 001 1 


DDOA, 


15S11 

REP 

14 

LAST 

938 

20,3231 

53-712 0 


DXCH 

MSUSIMP 

SC .AT B-i REV 

15521 

REP 

166 

LAST 

937 

20,3232 

0 0002 0 


IC 

0 


R15531 

t»JCMINATQR-SUM CCMPumTICN.. 






15541 

REP 

5 

LAST 

928 

20,3233 

31-726 0 

DSUM 

CAE 

JlTMP 

PREPARE DeiCMINATOR SlM, SCALED 

15551 





20.3234 

0 0006 1 


EXTB® 


AT B+i SPASCREvs ( = B +4 X B -3 

15561 

REP 

1 



20.3235 

7 3432 0 


MP 

Dl 

(JlTMP = J.YzERO, SC.AT B -3 R 

155T1 

REP 

6 

LAST 

934 

20.3236 

53-714 0 


DkCH 

dslmimp 

15581 

REP 

6 

LAST 

938 

20,3237 

31-726 0 


CAE 

JlTMP 


15591 





20,3240 

0 0006 1 


Bxra® 



15601 

REP 

2 

LAST 

938 

20,3241 

7 3433 1 


MP 

Dl +1 


15611 

RE3? 

7 

LAST 

938 

20,3242 

27-714 0 


ADS 

DSlMlMP ti 


15621 

REP 

68 

LAST 

936 

20,3243 

54 001 1 


TS 

L 


15631 





20,3244 

1 3246 0 


TCP 

♦2 


15641 

REP 

8 

LAST 

938 

20,3245 

27-713 1 


ADS 

dslmimp 


15651 

REP 

T 

LAST 

938 

20,3246 

31-727 1 


CAE 

JlTMP +1 


15661 





20,3247 

0 0006 1 


Exre® 



156T1 

REP 

3 

LAST 

938 

20,3250 

7 3432 0 


MP 

Dl 


15681 

REP 

9 

lAST 

938 

20,3251 

27-714 0 


ADS 

DSLMIMP +1 


15691 

REP 

89 

LAST 

938 

20,3252 

54 001 1 


TS 

L 


15T01 





20,3253 

1 3255 1 


TCP 

♦2 


15T11 

REP 

10 

LAST 

938 

20,3254 

27-713 1 


ADS 

DSLMIMP 


1ST21 

REP 

5 

LAST 

928 

20,3255 

31-730 1 

D 2 J 2 

CAB 

J 2 TMP 


15T31 





20,3256 

0 0006 1 


EXTH© 



15T41 

REP 

1 



20,3257 

7 3434 0 


MP 

D2 


15T51 

REP 

11 

LAST 

938 

20,3260 

21-714 0 


ms 

DSLMIMP 


15T61 

REP 

6 

LAST 

938 

20,3261 

31-730 1 


CAB 

J 2 TMP 


15TT1 





20,3262 

0 0006 1 


EXTR® 



15781 

REP 

2 

lAST 

938 

20,3263 

7 3435 1 


MP 

D 2 +1 


15791 

REP 

12 

tAST 

938 

20,3264 

27-714 0 


ADS 

dslmimp h 


15801 

REP 

90 

LAST 

938 

20,3265 

54 001 1 


TS 

L 
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15811 





20.3266 

1 3270 

0 

15821 

US' 

13 

LAST 

938 

20,3267 

27-713 

1 

15831 

BSP 

7 

LAST 

938 

20,3270 

31-731 

0 

15841 





20,3271 

0 0006 

1 

15851 

IBB 

3 

LAST 

938 

20,3272 

7 3434 

0 

15881 

lep 

14 

LAST 

939 

20.3273 

27-714 

0 

158T1 

US' 

91 

LAST 

938 

20,3274 

54 001 

1 

15881 





20.3275 

1 3277 

1 

15891 

BSP 

15 

LAST 

939 

20,3276 

27-713 

1 

15901 

BBP 

5 

LAST 

928 

20,3277 

31-732 

0 

15911 





20.3300 

0 0006 

1 

15921 

BEP 

1 



20,3301 

7 3438 

1 

15931 

BEP 

16 

LAST 

939 

20.3302 

21-714 

0 

15941 

BEP 

6 

LAST 

939 

20.3303 

31-732 

0 

15951 





20,3304 

0 0006 

1 

15981 

BEP 

2 

LAST 

939 

20,3305 

7 3437 

0 

159T1 

BEP 

17 

LAST 

939 

20,3306 

27-714 

0 

15981 

BEP 

92 

LAST 

939 

20,3307 

54 001 

1 

15991 





20,3310 

1 3312 

0 

18001 

BEP 

18. 

LAST 

939 

20,3311 

27-713 

1 

18011 

BEP 

7 

LAST 

939 

20,3312 

31-733 

1 

18021 





20,3313 

0 0006 

1 

18031 

BEP 

3 

LAST 

939 

20,3314 

7 3436 

1 

18041 

BEP 

19 

LAST 

939 

20.3315 

27-714 

0 

18051 

BEP 

93 

LAST 

939 

20,3316 

54 001 

1 

18081 





20,3317 

1 3321 

0 

18071 

BEP 

20 

LAST 

939 

20,3320 

27-713 

1 

18081 

BEP 

5 

LAST 

928 

20,3321 

31-734 

0 

16091 





20,3322 

0 0006 

1 

18101 

BEP 

1 



20,3323 

7 3440 

0 

18111 

US' 

21 

LAST 

939 

20,3324 

21-714 

0 

18121 

BEP 

6 

LAST 

939 

20,3325 

31-734 

0 

18131 





20,3328 

0 0006 

1 

18141 

BEP 

2 

LAST 

939 

20,3327 

7 3441 

1 

18151 

BEP 

22 

LAST 

939 

20,3330 

27-714 

0 

18181 

BEP 

94 

LAST 

939 

20,3331 

54 001 

1 

18171 





20,3332 

1 3334 

1 

18181 

BEP 

23 

LAST 

939 

20,3333 

27-713 

1 

18191 

BEP 

7 

LAST 

939 

20,3334 

31-735 

1 

18201 





20,3335 

0 0006 

1 

18211 

BBP 

3 

LAST 

939 

20,3336 

7 3440 

0 

18221 

BEP 

24 

LAST 

939 

20,3337 

27-714 

0 

18231 

BEP 

95 

LAST 

939 

20,3340 

54 001 

1 

18241 





20,3341 

1 3343 

1 

18251 

REP 

25 

LAST 

939 

20,3342 

27-713 

1 

16261 

REP 

6 

LAST 

928 

20,3343 

31-736 

1 

18271 





20,3344 

0 0006 

1 


TCP 

♦2 

AOS 

DSIMIHP 

CAB 

J2TMP *1 

Extend 


HP 

D2 

AOS 

DSIMIMP ♦! 

TS 

L 

TCP 

♦2 

AOS 

DSIMIMP 

CAE 

J3TMP 

EXTBID 


MP 

D3 

DAS 

DSUMWP 

CAE 

J3TMP 

EXTEND 


MP 

D3 +1 

ADS 

DSLMIMP ♦! 

TS 

L 

TCP 

*2 

AOS 

DSUWIMP 

CAE 

J3TMP ♦! 

ExTBlD 


MP 

D3 

ADS 

DSLMIMP +1 

TS 

L 

TCP 

*2 

ADS 

DSIMIMP 

CAE 

Jatmp 

EXTEND 


MP 

D4 

DAS 

DSIMIMP 

CAE 

J4TMP 

EXT&ro 


MP 

D4 +1 

ADS 

DSLMIMP +1 

TS 

L 

TCP 

*2 

ADS 

DSIMIMP 

CAE 

J4TMP +1 

EXTEND 


MP 

D4 

ADS 

DSLMIMP +1 

TS 

L 

TCP 

*2 

ADS 

DSLMIMP 

CAE 

JSTMP 

extend 





20’35 CX>r. 28,1968 DAPCSl .ijs PAGE S40 
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16281 

HBP 

1 



20,3345 

7 3442 1 


Ds 

16291 

RHP 

26 

lAST 

939 

20,3346 

21«714 0 

DAS 

dslmimp 

16301 

FBP 

7 

LAST 

939 

20,3347 

31«736 1 

CAB 

JSTMP 

16311 





20,3350 

0 0006 1 

BXTBff) 

16321 

RHP 

2 

LAST 

940 

20,3351 

7 3443 0 

W* 

Os 4^1 

16331 

RHP 

27 

LAST 

940 

20,3352 

27«714 0 

AOS 

DSIMIMP +1 

16341 

RHP 

96 

last 

939 

20,3353 

54 001 1 

TS 

L 

16351 





20,3354 

1 3356 0 

TCP 

♦2 

16361 

RHP 

28 

LAST 

940 

20,3355 

27«713 1 

AOS 

Dslmimp 

163T1 

RBP 

8 

LAST 

940 

20,3358 

31«737 0 

CAB 

JSTMP +1 

16381 





20,3357 

0 0006 1 

BXTB® 

16391 

HEP 

3 

LAST 

940 

20,3360 

7 3442 1 

MP 

D5 

16401 

REP 

29 

LAST 

940 

20,3361 

27«714 0 

AOS 

OSLWIMP *1 

16411 

REP 

97 

LAST 

940 

20,3362 

54 001 1 

TS 

L 

16421 





20,3363 

1 3365 0 

TCP 

♦2 

16431 

HEP 

30 

LAST 

940 

20,3364 

27«713 1 

AOS 

OSIKIMP 

16441 

RBP 

4 

LAST 

927 

20,3365 

31«740 0 D6J6 

CAB 

JfilMP 

16451 





20,3366 

0 0006 1 ' 

EXTH® 

16461 

RH' 

1 



20,3367 

7 3444 1 

MP 

De 

164T1 

REP 

31 

LAST 

940 

20,3370 

21«714 0 

DAS 

DSUWIMP 

16481 

RBP 

5 

LAST 

940 

20,3371 

31«740 0 

CAB 

JeTMP 

16491 





20,3372 

0 0006 1 

BXTSJ® 


16501 

REP 

2 

LAST 

940 

20,3373 

7 3445 0 

MP 

Og 

16511 

REP 

32 

LAST 

940 

20,3374 

27«714 0 

ADS 

DSUMIMP +1 

16521 

RBP 

98 

LAST 

940 

20,3375 

54 001 1 

TS 

L 

16531 





20,3376 

1 3400 1 

TCP 

*2 

16541 

REP 

33 

LAST 

940 

20,3377 

27«713 1 

ADS 

OSUMTMP 

16551 

RBP 

6 

LAST 

940 

20,3400 

31«741 1 

CAB 

J67MP +1 

16561 





20,3401 

0 0006 1 

BXTE® 


16571 

RH' 

3 

LAST 

940 

20,3402 

7 3444 1 

MP 


16581 

RBP 

34 

LAST 

940 

20,3403 

27«714 0 

ADS 

DSLMIMP +1 

16591 

REP 

99 

LAST 

940 

20,3404 

54 001 1 

TS 

L 

16601 





20,3405 

1 3407 0 

TCP 

*2 

16611 

HEP 

35 

LAST 

940 

20,3406 

27«713 1 

ADS 

Dslmimp 

16621 

REP 

36 

LAST 

940 

20,3407 

53«714 0 DajMSC 

DXCH 

OSUMTMP 

16631 





20,3410 

20 001 1 

DtXXlBL 


16641 

RBP 

37 

LAST 

940 

20,3411 

53«714 0 

DXCH 

dslmimp 

16651 

SEP 187 

LAST 

938 

20,3412 

0 0002 0 

TC 

o 
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P16661 CONSTANTS FOR AUTOPILOTS 

R166T1 NOIB 1 ASCRSY (ACTUATOR Q® SCALINO) = 85.41 ARCfflC/BIT OR 1.0T975111 RBYS <85 .41X16384/3600/380> 

R16691 1 SPAsCHEV (SPECIAL ACTUATOR OO SCALING) = 1.04620942 REVS 



16T11 





20.3413 

00375 

0 

A(?PSAT 

DEC 

253 

actuator limit (6 DBG), SC .AT iASCBEV 

16721 





20,3414 

00101 

1 

1 /ACTSAT dec 

.0039525692 

reciprocal (1/253) 

16731 

REP 

30 

LAST 

913 

4870 




ECUALS BIT13 

filter input limit B -3 revs (ASDEG) , 

16741 

REF 

27 

LAST 

901 

4710 



l/BRi8 ,IM equals 

BIT3 

sc .at B -1 rev, and its reciprocal 

16751 





20,3415 

OOllS 

1 

I/RTLIM 

DEC 

0.004715 

.004T15(aXDIF) =0 IF CDoDIF ± 2.33 DEO 

16761 

REF 

1 



4727 



KPON 

-- 

DEC45 

DBS IGN-NCM INAL FILTER GAIN, SC .AT B+i 

16771 

REF 

3 

LAST 

92S 

4727 



KM3N 


KPON 

SPASCREV (FOR DEC45 BITS EXACTLY) 

A16781 











KPttI = ; 005747 DEG/DEO 

A16791 











SCALED KPON = DEC45 

A168OI 











ISPASCREV = KPDN(B.14)/(2X4S) 

A168II 











= 1.04620942 REVS 

16821 

REF 

1 



20,3416 

02327 

0 

pitchts 

(SNAWl PITQCAP 

UPPER WORDS OP T5 2CADRS, LOWER WORDS 

16831 

REF 

2 

LAST 

902 

20,3417 

03111 

0 

DAPTS 

G©iADR DAP IN IT 

(B8CCN) ALREADY THERE. ORDER IS 

16841 

REF 

1 



20,3420 

02632 

1 

YAWIB 

CaMDR 

YAWDAP 

REQUIRED. 

16851 





20,3421 

00243 

1 

l-E(-AT) 

OCT 

00243 

At = .OlSEC EITHER! i/A=4SEC, T=40MS) 

16861 





20,3422 

375 35 

0 

E(-AT> 

OCT 

37535 

0R(1/A=8SBC, T=80MS) 

16871 





20,3423 

50166 

0 

Nl 

DEC 

-2.9700385 

B-2 NU>«RAT0R COEFS (CS4/LEM), SC .AT B+2 

16881 





20,3424 

31436 

1 

N2 

DEC 

3-1947342 

B-2 

16891 





20,3425 

74561 

0 

N3 

DEC 

-0.40962906 

B-2 

16901 





20,3428 

5 3277 

0 

N4 

DEC 

-2-5780275 

b-2 

16911 





20,3427 

27550 

1 

N5 

DEC 

2.9629319 

b-2 

16921 





20,3430 

63725 

1 

N6 

DEC 

-1.5101470 

b-2 

16931 





20,3431 

02400 

1 

N7 

DEC 

0.31243224 

b-2 

16941 





20,3432 

66341 

1 

Dl 

^yec 

-4.7798977 

B-4 DENCMINATOR COEFS (CS4/LEM), SC .AT B+4 

16941 





20.3433 

54237 

0 
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16951 

20,3434 

22707 

1 

D2 

2DEC 

9.4452763 

B-4 

16951 

20,3435 

36841 

1 





16961 

20,3438 

54220 

0 

D3 

2DeC 

-9.8593475 

B-4 

16961 

20,3437 

40714 

1 





169T1 

20,3440 

13344 

0 

D4 

2DeC 

5.7231811 

B-4 

16171 

20,3441 

21148 

1 





16981 

20,3442 

74401 

1 

DS 

2DBC 

-1.7484750 

b-4 

16981 

20,3443 

61760 

1 





16991 

20,3444 

00340 

0 

D6 

2DBC 

0.21933335 

b-4 

16991 

20,3445 

23073 

1 







